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2W FROM THIS RIDGE 


his month it begins —the most exhaustive cov- 
erage of the Commodore 128 you'll find in any 
computer periodical. Morton Kevelson starts 
out with an overview (and inner view) of the 
machine, its BASIC 7.0, and a guide to displaying 80 
columns with a 1702 monitor. Next month it's on to 
the 1571 disk drive, along with a detailed look at the 
С-128% keyboard. But don't feel obliged to rush through 
the rest of this page—the article will wait. After all, 
you're the guest of honor at our Opening Ceremonies 
for the Commodore 128. (Turn to page 29.) 
Another important beginning this month: our Cadets 
Column, wherein Cheryl Peterson will start at square one 
for all beginning users of the Commodore 64. Future col- 
umns should provide interesting reading for advanced 
users as well (such as planned features on copy pro- 
grams and computer furniture). (Turn to page 79.) 
And while we're in a birthgiving mood, we'd like 
to announce the forthcoming debut of still another reg- 
ular feature. See the information regarding our pro- 
gramming tips column on page 41, 
"That's enough new beginnings for now. Let's return to 
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the tame stuff we present every month —the finest lineup 
of Commodore-related features and Commodore-com- 
patible programs available between two covers. 

Proving that through ingenious programming, Commo- 
dore computers can do almost anything that the higher-end 
home machines can, Thomas Bunker's Windows on the VIC 
and 64 allows you to rope off portions of program screens 
for help messages and the like. (Turn to page 36.) 

Marie E. Coon relieves you forever of the tedium of writ- 
ing print statements with Formatter, a C-64 program that 
will generate program lines that exactly reproduce any screen 
full of text, graphics, or combination thereof. (Turn to page 13.) 

Selectachrome by Simon Edgeworth (author of last 
month's Printat) provides a means of trying out differ- 
ent combinations of border, screen, and text colors with- 
out entering time-consuming commands. (Turn to page 17.) 

Alfred J. Bruey's Screen Dump Routine, while not in- 
novative, is short and handy. (Turn to page 46.) 

In the games department, Barbara Schulak's Disintegra- 
tor compels you to defend eight underground silos from 
ап enemy that descends with machine language speed. (Turn 
to page 17.) And James Sanders’ Gators N Snakes offers 
graphics so realistic they're repugnant. (Turn to page 41.) 

In the May edition of Creating Your Own Games on 
the VIC and 64, Orson Scott Card related an anecdote 
about some programs presented to him by Walter Meyers, 
a professor at North Carolina State. One of the very pro- 
grams described in that column appears in this issue: 
Fidgits, an alphabet tutorial for the C-64. (Turn to page 39.) 

Of course, Orson Scott's popular column appears in this 
issue as well. What the rather ridiculous title Sputter Pop 
Hiss Chop Flap Crash Slurp Mash boils down to is a tu- 
torial on incorporating sound effects into your original game 
programs, including seven short sound effects programs for 
the 64 and five for the VIC 20. (Turn to page 18.) 

Backing Orson Scott up this month is Bruce Bartlett, 
whose Sound-A-Rama offers a menu full of interesting 
sound effects to play on the 64. (Turn to page 27.) 

This issue marks Dale Rupert's temporary departure 
from mainstream programming into a subject area seldom 
delved into by computer magazines: simulations of real- 
life phenomena on a Commodore 64, beginning with Fall- 
ing Needles and Shared Birthdays. (Turn to page 53.) 
And your assembly language education continues with 
the first of two editions of Commodore Roots devoted 
to assembly language addressing. (Turn to page 73.) 

This issue also marks the departure of managing edi- 
tor Bob Sodaro, who has decided to trade staggering out 
of these offices at 9 p.m. every night for a lucrative free- 
lance writing career. Who can figure that? Still, our very 
best to Bob. 

And between these covers—our very best to you! 

— David Allikas 
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EDITORIAL 


By Chery! Peterson 


SoftCon, Atlanta, 1985. A dream of industry gurus 
singing the praises of an ever-expanding market and aisles 
of the latest software releases. A Commodore user's fan- 
tasy! Surely the “shakeout” couldnt touch a computer with 
а user base of several million. 

The nightmare I found instead sent me home a day 
early, my dreams dashed by disheartening piracy figures, 
dire predictions, and the “why bother?" attitude of many 
exhibitors. 

My bad experience is not important, but you should 
know that as a viable market, we've been written off. 
The opening panel discussion dismissed us as being non- 
existent. Millions of home computerists were summed 
up and casually discarded like an old dog-eared hat. 

"Oh, home users. There's no such thing. There are peo- 
ple who use computers at home for small business and 
ial purposes, but outside of that, forget it. There 
її a “home” market; there never was. Let's face 
it, there's nothing р left to sell. Most home computer own- 
sd their machines in a closet and given up” 
this is paraphrased, but it accurately re- 
flects the opinions of Mitch Kapor, president of Lotus 
Development Corp., and John Sculley, president of Ap- 
ple Computers. Sculley pointed out that because so many 
Apples are used in schools, they aren't being relegated 
to closets. 

Although Esther Dyson pointed out that Jack Tramiel 
would probably have felt differently, she also agreed with 
the others. As editor of a business-oriented newsletter, 
it wasn't surprising that she would so easily write us off. 
Fred Gibbons, a last minute substitute for Tramiel and 
president of Software Publishing Corporation, marketer 
of the PFS series, wouldn't stand up for us either. Of the 
four, though, he seemed most inclined to give us the bene- 
fit of the doubt. 

And where was our “white knight?” His apology, posted 
in the press room, said only that he had another more 
pressing commitment. Tramiel, once the driving force 
of Commodore and now President of Atari, doesn't seem 
convinced that home computers are outdated. Instead, 
his newest ventures at Atari appear to be higher level com- 
puters at home market prices. (See Scuttlebutt section 
of April Ahoy! for details.) 

The dismal opening discussion wouldn't have caused 
me concern, except for the dearth of Commodore soft- 
ware among exhibitors. As a sales vehicle for software 
companies, SoftCon should have overflowed with ven- 
dors and programmers hawking their wares. It did! Un- 
fortunately, everyone was driving an Apple or IBM. 

Out of several hundred booths, less than a dozen had 
Commodore software. Of these, all but three were sell- 
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Navarone'’s three-slot expander can save wear and tear on your cartridge port. 
VICE 00 


THREE-SLOT EXPANDER 

Navarone Industries, longtime 
manufacturer of a cartridge expand- 
er for the TI-99/4A (remember that 
one?), has made the same three-slot 
unit available for the C-64, enabling 
the user to shuttle between cartridges 
at the press of a button. Also includ- 
ed is a computer reset switch. Price 
is $24.95. 

Navarone Industries, Inc., 19968 
El Ray Lane, Sonora, CA 95370 
(phone: 209-533-8349). 


VIDEO DIGITIZER 

Joining Computereyes (see April's 
Scuttlebutt), the first video acquisi- 
stem for the C-64, is Cardco's 
п. The package consists of 
er (which connects directly to 
the C-64), software, cables, and a 
Panasonic monochrome camera with 
12mm lens, all for $250. The image 
produced can be viewed on your 
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monitor, stored on disk, transmitted 
by modem, or printed 

Acquisition time for a 320 x 200 
dot screen image in five gray scales 
is 3 seconds. Included is a version of 
Cardco's Paint Now software to allow 
manipulation of the image. Word pro- 
cessor or light pen figures may also 
be applied. 

Cardco, Іпс., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 


SPREADSHEET PRINTER 
Sideways, which enables IBM and 
Apple users to print an entire spread- 
sheet vertically (and hence of any 
width desired), will be published for 
the C-64 and С-128 by Timeworks for 
use with all major brands of Commo- 
dore-compatible spreadsheets. Addi- 
tionally, the program will be incor- 
porated into Timeworks own Swift- 
calc. Price of the 64-compatible Side- 


ways will be $29.95; Swificalc with 
Sideways, $49.95. 

Timeworks, 444 Lake Cook Roa 
Deerfield, IL 60015 (phone: 3 
948-9200). 


EDUCATIONAL PROGRAMS 
The 200-plus word vocabula 
speech synthesis capability, and ani- 
mated letters of Talking Teacher com- 
bine to instruct two to eight year olds 
in the alphabet, spatial relationships, 
and placement of letters on the key- 
board. For the C-64; $34.95. 

Imagic, 2400 Bayshore Frontage 
Road, Mountain View, CA 94043 
(phone: 415-940-6030). 

Speller's Duel enables two players 
to compete in a TV game show fi 
mat, racing to spell words from five 
preprogrammed lists (for Sth, 6th, 


Sideways prints spreadsheet vertically. 
READER SERVICE NO. 201 
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7th, and 8th grades, plus Super Chal- 
lenge). For the C-64; $24.95 plus 
$2.00 shipping. 
J.M. Pizzuti Co., 
Soquel, CA 95073. 


PO. Box 1077, 


A real-time solar system simulation. 
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Three releases for the C-64 from 
Mindscape: 

The Halley Project: A Mission in 
Our Solar System ($44.95) seeks 
players who qualify for the top ѕе- 
cret project by completing a series of 
navigational tests in an authentic 
space simulation. The tests and ob- 
stacles help players master basic facts 
about the solar system, including de- 
tails on Halley's Comet, gravity, at- 
mospheric conditions, orbital motion, 
location of constellations, and eclip- 
ses. The program is a real-time sim- 
ulation, meaning that every planet, 
star, or moon depicted moves at the 
same rate and in the same orbit or 
pattern as in our solar system. Atari 
version is included on flip side. 

Mr. Pixels Game Maker ($29.95) 
lets children play several example 
games, write simple programs that 
change the actions of the characters, 
or use conditional (“if-then”) logic 
statements to change or establish 
game rules. The program can be used 
in conjunction with Mr. Pixels Pro- 
gramming Paint Set and Mr. Pixels 
Cartoon Kit. 

Color Me ($29.95) allows young 
children to design their own pictures, 
coloring books, and stickers on the 
computer screen and then print them 
out. A Color Me Supply Box ($9.95), 
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containing buttons, color printing pa- 
pers, and adhesive-backed sticker pa- 
per, and Color Me Picture Disks 
($9.95 each) will be sold separately. 

Mindscape Inc., 3444 Dundee 
Road, Northbrook, IL 60062 (phone: 
312-480-7667). 

The Success With Reading book/ 
software series will teach children 
reading via the Cloze technique, 
wherein students read and complete 
passages from which certain letters 
or words have been omitted. The four 
grade-specific packages (3 through 
6), which sell for $49.95 each, must 
be used with the core package 
($79.95). For the C-64. 

Scholastic, Inc., 730 Broadway, 
New York, NY 10003 (phone: 212- 
505-3410). 

In Wüllys Word Works, students di- 
rect a bouncing wallaby along sen- 
tences, depositing words in the сог- 
rect part-of-speech pockets. The 
$65.00 price includes teacher's disk- 
ette plus one of three student disk- 
ettes: Иа уз Workout (elementary), 
Pocket Pitfalls (junior high), or Ro- 
vers Revenge (senior high to adult). 

Sunburst Communications, Inc., 
39 Washington Ave., Pleasantville, 
NY 10570 (phone: 800-431-1934 or 
914-769-5030). 


Turtle Tutor: А First Course in 
Logo, designed for use by both chil- 
dren and adults, teaches movement 
of the triangular "turtle" cursor by 
means of five games. Users move 
from elementary to more sophistica- 
ted commands, starting with match- 
ing and duplicating shapes displayed 
оп the screen and progressing to us- 
ing the full range of Logo commands 


to create original designs. Commo- 
dore Logo is required. For the 64; 
$4400. 

DLM Teaching Resources, One 
DLM Park, Allen, TX 75002 (phone: 
214-248-6300). 

Four C-64 releases for children 4 
to 6 from Grolier Electronic Publish- 
ing, each $29.9: 

The Story of Miss Mouse teaches 
the meaning of rhyming words 
through picture clues and color-coded 
typewriter keys. 

Rhyme Land provides eight educa- 
tional games that reinforce the con- 
cept of rhyme and provide 101 vocab- 
ulary words. 

First Steps to. Reading — Phonics 
Fun I and II teaches initial and final 
consonant sounds and their associa- 
tion with letter symbols, as well as 
the concept of spelling. 

Exploring Your World consists of 
two programs: Me and Others, which 
explores the concepts of self and fam- 
йу, and teaches names of body parts 
and clothing; and The Weather, which 
covers vocabulary, concepts, and 
dress related to the weather. 

Grolier Electronic Publishing, Inc. , 
95 Madison Ave., New York, NY 
10016 (phone: 212-696-9750). 

The price of Lovejoys Preparation 


Color Me 
Picture Disks 
(sold separ- 
ately) feature 
Rainbow 
Brite, Shirt. 
Tales, Hugga 
Bunch, and 
Tink!Tonk! 
characters. 
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for the SAT was incorrectly listed іп 

the April Scuttlebutt as $8.95. That, 
of course, is the price for the well- 
known paperbound volume. The 
price of the C-64 program of the 
same name is $69.95. 

Simon & Schuster Electronic Pub- 
lishing Group, 1230 Avenue of the 
Americas, New York, NY 10020 
(phone: 212-245-6400). 


Computerized aid— but not for $895. 
READER SERVICE NO. 204 


LOW-COST ASSEMBLER 

Robin's Software has made their 
IEA Editor Assembler, consisting of 
disk plus looseleaf manual, available 
for 55.00 plus $2.00 postage (previous 
price was $19.95). As if that weren't 
generous enough, Robin's offers 
help with 6502/6510 assembly lan- 
guage via their hot line: 612- 
829-0483 (5-10 p.m.). 

Robin's Software, 10349 Zinran 
Circle, Bloomington, MN 55438. 


C COMPILER 

‘The first full C compiler for the 64, 
Super C is a complete development 
system that produces 6510 machine 
code. Its editor handles source fil 
up to 4IK in length. The linker à 
cepts up to seven modules 
brary supports standard 
Commodore-oriented functions. 

Abacus Software, 2201 Kalamazoo 
S.E., PO. Box 7211, Grand Rapids, 
MI 49510 (phone: 616-241-5510). 


EXPERT SYSTEM 

Purportedly the first expert system 
for the C-64 and C-128, XPER allows 
the user to first build information into 
his database using the program's sim- 
ple loading procedures, then use its 
searching techniques to guide himself 
through complex decision-making 
criteria. Full reporting and data main- 
tenance capabilities are included. 

Abacus Software, 2201 Kalamazoo 
S.E., PO. Box 7211, Grand Rapids, 
MI 49510 (phone: 616-241-5510). 
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NEW GAME RELEASES 

Activision will build QuickDrive, 
a software feature that speeds load- 
ing of a C-64 diskette by over 400%, 
into future game releases, including 
the following: 

То obtain the fabled power and 
riches of the jeweled throne of Alca- 
zar: The Forgotten Fortress, the play- 
er must traverse an enchanted land 
full of ancient castles, cach contain- 
ing tools indispensible to his quest, 
but guarded by griffins, genies, and 
the like. 

In your attempt to halt the Count- 
down to Shutdown at the world’s larg- 
est power plant, you direct your eight 
androids through the facility's 2000 
rooms and deadly automated defense 
systems to find and repair the power 
core. 

Participants in The Great Ameri- 
can Cross Country Road Race (pre- 
announced in the March Scuttlebutt) 
must plot a winning route, referring 
to a detailed US map and account- 
ing for terrain, weather, and traffic. 
Gear shifting, fuel stops, engine 
maintenance, and quick driving re- 
flexes are required along the way. 

QuickDrive will also be incorpor- 
ated into the previously announced 
Web Dimension, Master of the Lamps, 
Rock N' Bolt, and The Music Studio. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 

Mr. Golf for the C-64/C-128 in- 
cludes ап 18-hole course, each hole 
with its own positioning of hazards 
like trees, water holes, and sand traps. 
Flight path of the ball is altered geo- 
metrically when hazards are encoun- 
tered. A course design package uses 
icons to allow creating, deleting, and 
positioning greens, tees, hazards, and 
more. Joystick is required. Price: 
$19.95 tape, $22.95 disk. 

APCAD Software, PO. Box 2673, 
Ann Arbor, MI 48106. 

Scheduled for November release, 
The Kobiashi Alternative is the first 
interactive fiction game based on Star 
Trek. The program features a person- 
ality database for all the most famil- 
iar characters. The player assumes 
the role of Kirk, leading the Enter- 
prise on a quest to discover and neu- 
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tralize the Bermuda Triangle of space. 
For the C-64; $39.95, 

Simon & Schuster Electronic Pub- 
lishing Group, 1230 Avenue of the 
Americas, New York, NY 10020 
(phone: 212-245-6400). 

The four latest war games for the 
C-64 from SSI; 

Six Gun Shootout, a simulation of 
Old West-style man to man combat, 
lets one or two players choose up to 
10 different scenarios of historical 
gunfighting, or fictional setups. 
Knives, tomahawks, rifles, shotguns, 
pistols, and 13 other types of weapons 
may be used. Price: $39.95. 

Wings of Mür lets advanced war- 
gamers choose from among 36 fa- 
mous fighters or bombers, using up. 
to 16 in each battle. Planes are rated 
for firepower, speed, maneuverability , 
and other factors. Five scenarios are 
included: air race, У-1 flying bomb 
intercept, night fighter, bomber for- 
mation intercept, and dogfight. Price 
of $39.95 includes two mapboard 
Charts and three player aid charts. 


Mech Brigade pits Soviet and 


SECURITY AND 8 
о 
CONFIDENTIALITY о 
Two very important words to us ай. О 
Without them, our inner most thoughts О 
would be thrust into the public limelight. су 
Yet, millions о! people go about each су 
day entering personal or company ге- 
cords into their computers. In most 
cases, after this information has been 
transferred to diskettes, cassettes, or 
databanks it can be read by anyone hav- 
ing à little bit of computer know how. 
Many companies and individuals have 
been dealt irrepairable harm through the 
leakage of highly confidential material. 


PROTECT YOUR INFORMATION FROM 
UNAUTHORIZED DISCLOSURE WITH THE 


ALSOFT 
SECRET SOFTWARE PACKAGE 


SECRET ACCOUNTS: Tracks 40 accounts, secret 
ly Haracopy Printouts on any properly inlertaced 
Versions are availabe for the Commodore "C64: 
or the “Pius 4" models (apeelly) It is fully menu. 
riven and easy to use, offering complete secrecy us- 


ing password protection Data isnot simply 
Up” by a password, bul is completely cha 
beginning to end, ensuring that your tie 
read by persons (including hackers) not knowing the 
correct password. Unique 240 character password. 
у provides for over 1.0 + E400 (1 followed by 
arent passworas combinations 
Avalate on Disk or Cassette (Please Specity) 
tor ONLY $29.95 


Send check or Money Order to: 


P.O. BOX 164, Clairton, Pa. 15025 

COMMODORE, C-64 and PLUS 4 aro trademarks of 
jectonics. 

THIS ALSOFT SOFTWARE IS FULLY COPYABLE 


0000000000000000000000000000000000000090| 


loG000000000000000000000000000000 


NATO forces against each other in a 
time period spanning from the 1980's 
to the 19905. Over 45 different ve- 
hicles can be employed, as well as 
guided missiles, helicopters, and 
smoke. Four scenarios are included, 
plus the capability to create an infin- 
ite number of original ones. Price: 
$59.95. 

Fighter Command recreates the air- 
war portion of the 1940 Battle of Bri- 
tain, as the full 34-day campaign, 
three medium-length games, or a fast- 
paced Eagle Day assault. Each Brit- 
tish and German squadron is rated for 
pilot experience and morale, with re- 
calculation after each mission. Play- 
er aid cards are included. Price is 
559,95. 

Strategic Simulations Inc., 883 
Stierlin Road, Bldg. A-200, Moun- 
tain View, CA 94043-1983 (phone: 
415-964-1353). 

Datasoft will introduce five new 
Commodore 64 games this fall: The 
Goonies (based on the upcoming 
Steven Spielberg film), Zorro, Alter- 
nate Reality, Pole Position II, and 


NFORMATION 
ANAGEMENT 


urea. 
ME YORK. RESIDENTS ADD BALES TAX: 


(2119) SOFTWARE 


Reader Service No, 217 
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TeleMAX: for spikes, surges, noise. 
READER SERVICE NO. 205 


Elevator Action. 

Datasoft, 19808 Nordhoff Place, 
Chatsworth, CA 91311 (phone: 818- 
701-5161). 

Mindscape will hold а contest in 
conjunction with The Dolphins Rune: 
A Poetic Odyssey, in which the player 
assumes the role of a dolphin in or- 
der to locate and negotiate color cur- 
rents and search seabeds for runes. 
Each rune unlocks hieroglyphics, en- 
coded stanzas of dolphin lore. Nine 
such odysseys will yield nine stanzas 
of a poem. The first player to under- 
stand the poem, its dolphin lore, and 
the location of the secret wins the 
contest. Further contest details are 
available with the software, which is 
available (for the C-64) for $29.95. 

Mindscape Inc., 3444 Dundee 
Road, Northbrook, IL 60062 (phone: 
312-480-7667). 


TELECOM NEWS 

The Information Connection is 
aimed at teaching the beginner the 
fundamentals of tying into services 
like CompuServe and The Source. A 
tutorial simulates an online session 
wherein the user can practice search- 
ing for information; an actual tele- 
communications program permits the 
sending of electronic mail and mes- 
sages to any online utility or BBS. In- 
formation may be dumped to any 


printer. Available in September for 
the C-64 and С-128; $59.95. 

The Intelligent Choice in Data 
Communications, a brochure describ- 
ing the USRobotics line of modems 
and telecommunications software, is 
available free by writing USRobotics, 
Inc., 1123 W. Washington Blvd., Chi- 
cago, IL 60607 or calling 1(800) 
DIAL USR. 

The TeleMAX 4 telecommunica- 
tions surge and spike suppressor and 
noise filter helps eliminate power, 
telephone, and telecommunication 
line disturbances that cause loss of 
data. Line protection is provided on 
the four AC receptacles and two RJ- 
45 КІМІ compatible phone jacks. 
Price: 5129.00. 

Panamax, 150 Mitchell Blvd., San 
Rafael, CA 94903 (phone: in CA 415- 
472-5547; rest of US 1-800-472-5555). 


LIGHT PEN, LIGHT PRICE 
The Sure Light Pen for the C-64 
and VIC 20 includes a high speed 
screen locator, a “game pak,” and a 
tutorial for writing your own light pen 
programs. Price is $22.95. 
Creative Enterprises, PO, Box 
2477, Big Bear City, CA 92314. 


SMALL BIZ ACCOUNTING 

Designed for the small business us- 
er, Accountant, Inc. comprises Gen- 
eral Ledger, Accounts Receivable, Ac- 
counts Payable, and Inventory pro- 
grams. It generates 35 different ге- 
ports including an Aging, a List of 
Payments, and monthly statements of 
Account Activities, For the C-64; 
$59.95. 

Softsync, Inc., 162 Madison Ave., 
New York, NY 10016 (phone: 212- 
685-2080). 


FLOPPY PHYSICIAN 
For the hypochondriac in all of us, 
EMED, the Electronic Medical Data- 
base for the C-64, contains informa- 
tion on over 460 diseases and 325 
symptoms. It's possible to search/re- 
view and see all diseases for a symp- 
tom, or all symptoms for a disease. 
Included is a diagnostic program that 
lets the user select applicable symp- 
toms; then aem the most probable 

isk; $29.95. 


DMC Software Co., Rt. 1, Box 
364, Clinton, LA 70722. 


Extra-wide 
Microline 193 
supports 
spreadsheet 
applications of 
up to 233 
characters per 
line, at a price 
of $200 higher 
than that of the 
narrower 192. 
READER 
SERVICE 
NO. 206 


OKIDATA PRINTERS 

The Microline 192 and 193 (wide- 
column) printers offer three different 
print modes, re-inking cartridge rib- 
bon, an 8K buffer, hi-res correspon- 
dence quality mode, and a noise rat- 
ing of 58 DbA. Priced at $499, the 
192 comes with an adjustable pin feed 
mechanism; the 193 ($699) has a 
tractor feeder. 

Okidata, 532 Fellowship Road, Mt. 
Laurel, NJ 08054 (phone: 609- 
235-2600). 


LET YOUR FINGERS DO 
(LESS OF) THE WALKING 

In an eight-hour day, claim the 
manufacturers of DV Typer, а 
DVORAK typists fingers travel 1 
mile, compared to 16 miles for a typ- 
ist on the standard QWERTY key- 
board. Hence their program that con- 
verts the C-64 keyboard to the 
DVORAK layout via software and 
durable overlays with dual (DVORAK 
and QWERTY) markings. DV Typer 
keeps records of WPM progress for 
one or more individuals learning 
DVORAK, has a QWERTY typing 
option, and can be exited so that 
other programs can be used with the 
DVORAK layout. C-64 disk, keycap 
overlays, and 22-page typing manual 
are $34.95, 

Prelco, 14202 Galy Street, Tustin, 
CA 92680 (phone: 714-544-3041). 


BROWN BAG SOFTWARE 
The Brown Bag integrated database 
and word processor comes packaged 


sitalia.net, 


http 


in a lunchbag-style package to stress 
its no-nonsense, easy-to-use nature 


and its brown bag price of $49.95, 
Features include online help, merging 
of text and data between modules, 
and eight commonly used database 
templates. 

Software Resource Group, Inc., 
1095 Airport Road, Minden, NV 
89423 (phone: 702-782-9731). 


PERFECT DRAW 

The Perfect Draw graphics design 
software will allow users of the Per- 
fect Writer word processor to create 
and айда variety of illustrations and 
stylized text to their documents, with 
up to 128 colors for the C-64 and 128. 
The program is compatible with in- 
put devices such as joysticks, graph- 
ics tablets, and light pens. 550,00. 

Thorn EMI Computer Software, 
Inc., 1881 Langley Ave., Irvine, CA 
92714 (phone: 714-261-6600). 


PROMAL UPGRADE 
PROMAL Version 1.1, available to 
registered owners of Version 10 (re- 
viewed in the June '85 Ahoy!) for 
$500 plus $2.50 shipping, corrects 
various reported problems and adds 
an ML subroutine interface and 
methodology for accessing Kernal 
routines, a diskette utility for Бас! 
ing up files, and support for the 
RS-232 interface, relative files, and 
assorted functions like ABS, SIN, 
COS, TAN, and ARCTAN. Price is 
$99.95 plus $500 shipping. 
Systems Management Associate: 
Inc., 3325 Executive Drive, PO. Во 
20025, Raleigh, NC 27619 (phone: 
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BETTER KEYBOARD UTILITY. 
ASTE elegant өл сызга “Cheat 
Ton naed. nanny. шү program 


$12.95 $19.95 


BETTER DUST PROTECTION 
FOR VIC & COMMODORE 


5795 5295 Q- 
We Сал Solve All Your 
Commodore Color Problems 


Problem Soiven lor Older Commodores 
an Ph 


$15.95 


$18.95 
$24.95 
г 52495 


59.95 


519.95 


Is Your Commodore Disk Drive 
Hot and Bothered? 


a Breakthrough in Value ! 


ULTRABYTE 
NEW PRODUCTS - ALL 


à with FREE BACKUP COPIES 


ULTRABYTE DISK NIBBLER 


Uses ИКТЫМ revision of disk кинза (005 ] to make 
a bit by bit copy. This process. called nibbling. copies the format, 
data and errors, all at the same time. Errors are not recognized . 
and do not hammer the drive. Built in fas! load environment allows 
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919-787-7703). 
CHEATSHEETS 


Last time we reported on Leroy 
Cheatsheets (Nov. '84 Scuttlebutt), 
there were 33. Seems Leroy had a 
few more up his sleeve: the 
| total of keyboard overlays 
for assorted C-64 programs is 62 
The most recent releases are Fleet 
System 2, Sky Travel, Word Pro 64, 
Write Now!, and PractiCalc II. Price 
is $3.95 cach, plus $1.00 shipping. 

Cheatsheet Products, PO. Box 


copies in 8 minutes with a single 1541 disk drive. 
Easy to use. No separate analysis or error production 
Choose 35.36.37 or 38 tracks to copy incl. half tracks 
Makes up to 5 copies of each original — | UNIQUE FEATURE | 
Backs up 99% of all protected software | 
Free backup сору -two disks for the price of one 


FOR 2 COPIES OF THE 
339,95 DISK NIBBLER 


plus 5400 shipping and handling. Mastercard. Visa. Check or M.O.. Foreign orders 
or COD add $2.00. Calif. add 6.5% ($2.60) sales lax. Additional backup copies are 
520.00 plus $3.00 shipping. ATTENTION: Owners of ULTRACOPY whose names 
are in our lile may order a single copy lor $2000 plus $3.00 shipping. 


FREE BACKUP DISKS 


McMURPHY'S MANSION | THE DISK SURGEON К ы RC) с 
мех, „AN ULTRABYTE New, AN ULTRABYTE ($49.55) is designed to teach the be- ` 
12 ТЕХТ ADVENTURE 2227 MISK UTILITY | ginning computer user to create and 
It seems that an unknown uncle has died in * Read data from. edit and write to disk apply spreadsheets to everyday activ- 
faraway Scotland and lel! you his vast * Analyze disk errors without "hammering | ities in homes and schools. Included 
Lees = Write errors 20.21.22. 23.27 & 290n disk is a self-instruction tutorial, pre-for- 
There is only one small problem. Dear old * Read dala under errors. erase errors. matted practice template and menu- 
uncle McMurphy was a bit demented and * Decimal. HEX. Octal & Binary conversions 


has hidden your inheritance somewhere in driven software tool that lets the stu- 
his mansion, * Format a single track with any (0 dent develop his own spreadsheets 
. меди катан lor beginners without memorizing commands. 
^ Available for the C-64 in September. 
wenns тинн rustic ман сот MEN тһе Educate Template Disk 
1] FILE COPY to copy portions ol a disk | ($19.95), sold separately, includes 10 
2) SINGLE TRACK COPY application templates preformatted 
S 1 UTE COPY М сика bk with labels and formulas. 
Prolected disks also require error Grolier Electronic Publishing, Inc., 
production 95 Madison Ave., New York, NY 
$29.95 for 2 disks E 10016 (phone: 212-696-9750). 
plus $4.00 shipping. COD or r | 
Foreign add $2.00. CA tax $1.95 | MORTON THE K SPEAKS! 
| Ahoy! readers planning to attend the | 
M.A.R.C.A. Commodore Computer 
| Fair in Valley Forge, PA (July 26-28) | 
won't want to miss Morton Kevelson | 
speaking on printer interfacing (3:00 | 


111368, Pittsburgh, PA 15238 (phone: 
412-781-1551). 


More Cheatsheets from Leroy. 
READER SERVICE NO. 207 


SPREADSHEET TUTORIAL 
The latest in Grolier's series of en- 
try-level, self-teaching productivity 


Me left you only one small clue. a brass кеу 
It is now up to you to find your fortune. 
* 30-60 hours of challenge 


* Sealed envelope of hints 
lor beginners 


* instruction manual included 
* Solution sheet available 


$29.95 lor 2 disks а 
plus $4.00 shipping. COO or 
Foreign add $2.00. CA tax $1.95 


All Products tor Commodore 64 & 1541 Disk Drive Only 
Write or Call 24 Hour Order Line 


ULTRABYTE (818) 796 - 0576 
P.O. Box 789 La Canada, CA 91011 Friday and 1:00 Sunday). See page 
101 for full details on the show. 


DEALERS & DISTRIBUTORS WANTED = 


лсе No. 219 
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FORMATTER 


An Automatic Data Creator for the C-64 
By Marie E. Coon 


f the tedium of writing print statements to format 
that special game screen, menu, or other display 
has you climbing the walls, Formatter is the pro- 
gram for you! In just seconds, Formatter will gen- 

erate new program lines that will exactly reproduce any 
screen full of text, graphics, or combination of the two 
that you devise, including all screen and character col- 
ors, even multicolor and extended background colors. 
Іп addition, Formatter makes either the full regular сһаг- 
acter set or the full upper and lower case set of 255 сһаг- 
acters available for reprogramming, and will then create 
character data statements for all redesigned characters. 
You can create new lines for up to about 20 screens, and 
successively view them. A deletion feature allows you 
to delete the lines for any or all of the screens you have 
devised, or delete the Formatter program, leaving just 
your new lines for saving or appending. Finally, since 
one of my pet peeves is having to stop everything and 
search madly through a stack of magazines to find a for- 
gotten program instruction, I have attempted to include 
all the instructions necessary to successfully operate For- 
matter within the program itself. 

Because the memory requirements of Formatter plus 
the new program lines necessary to reproduce a reason- 
able number of screens is more than can be accommo- 
dated by the default VIC-II chip setting, some juggling 
of memory usage was necessary. To provide maximum 
space for BASIC programming while still having custom. 
characters plus a screen for formatting and a screen for 
reprogramming, the latter operations were moved to the 
top of RAM memory, i.e., Bank 2, which starts at mem- 
ory location 32768. An eight page block of memory from 
32768 to 34815 is reserved for 256 programmable char- 
acters. A screen for formatting is located from 34816 to 
35839 and a screen for reprogramming characters is lo- 
cated from 35840 to 36862. Memory locations 36863 
to 40959 contain the character ROM image and cannot 
be used for screens or reprogrammable characters. An 
additional four page block of memory from 31744 to 
32767 is reserved for storage of the color RAM for the 
formatting screen. The default screen which begins at 
location 1024 is also used for some of Formatter's dis- 
play features, leaving 29K free for BASIC programming. 

Formatter is essentially a collection of subroutines that 
are called directly or indirectly by the main menu be- 
ginning at Line 400. To provide for a user-controlled de- 
lay with subsequent choices of action, the WAIT state- 
ment has been used throughout rather than the more 
familiar GET A$. This is because WAIT often requires 


/www.oldgamesitali. 


one less program line, directly provides a numerical val- 
ue, and does not create strings that can contribute to gar- 
bage collection problems. 

Menu choice 1 lists the different color and switching 
options available on the formatting and reprogramming 
screens via the function keys. Because there are more. 
choices than keys, some of the keys perform dual duty. 
This may be confusing at first, but once the differences 
between multicolor and extended background color. 
modes and how they work is understood, there should 
be no problems in achieving the colors you want. Just 
remember that the border color will not change when. 
you are in either extended background color or multi- 
color mode, and that these two modes are mutually exclu- 
sive—they cannot both be "on" at the same time. Also, 
they are turned off by pressing the same function key. 
that turns them on. (Refer to the Commodore 64 Pro- 
grammer Reference Guide for a discussion of these fea- 
tures and how they operate.) The color numbers for the 
screen, border, and other color registers are cycled 
through their sixteen values by the use of the true/false 
test of a relational operator. А relational operator has a 
value of —1 when it is true, such as when SC in Line 
200 is less than 16 in the expression SC « N where М 
equals 16. If SC is equal to or greater than 16, then the 
relational operator is false and has a value of zero. There- 
fore, the equation SC=—SC*(SC<N)+H where Н 
equals one will cycle the value of SC from zero to 16. 
(See Lines 200 through 300 for more examples.) 

The f4 key switches character sets back and forth be- 
tween the ROM image and RAM. The somewhat uncom- 
mon BASIC numeric function ABS is used to toggle the 
character set value between 33 and 37 in Line 381. ABS 
strips the sign from a numeric value, leaving only the 
absolute value of that number. Therefore, O in the equa- 
tion O=ABS(O-4) has a value of either zero or four, so 
that the expression 33--О will be either 33 or 37. 

F6 switches directly back and forth between the format- 
ting and reprogramming screens without going through 
the menu. Тһе #8 choice flashes in red to remind you 
that it will call up the menu from either screen when- 
ever you wish to make a different menu selection. 

А second instruction screen may be called by pressing 
the space bar. It details how to change all characters 
printed on the format screen in a certain color to another 
color. Say you have some lettering in blue and you want 
to see how it would look in green. First change the cur- 
sor to blue by pressing the CTRL key and the 7 key to- 
gether. Then press the CTRL key and the letter C key 
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together. The cursor will disappear. Now press the CTRL 
key and the 6 key together. Instantly, all of the blue let- 
tering will change to green. 

Menu choice 2 transfers program control to the format- 
ting screen. It first appears as a pale grey screen with 
a white border and a flashing dark grey cursor in the 
home position. This is actually the real cursor that has 
been made visible by the machine language subroutine 
starting at location 49980. This subroutine also controls. 
all of the keyboard input. When а function key is pressed, 
it stores the ASCII number of the key at zero page loca- 
tion 253 and then returns program control to BASIC. 
BASIC PEEKS the function key number and then selects 
the corresponding subroutine (program Lines 445 through 
460). The character colors, reverse characters, and up- 
per and lower are controlled by the CTRL, 
COMMODORE, and SHIFT keys just as they are in di- 
rect mode. Also, all character keys have been set to auto- 
matic repeat. As its name indicates, the formatting screen 
is where the major screen design work takes place. 

Program control is switched to the character reprogram- 
ming screen by menu choice 3. The most obvious feature 
of this screen is that it is divided in half across the mid- 
dle. The upper half is colored an unchanging grey and 
contains some brief reprogramming instructions. This із 
where custom character designing takes place. The bot- 
tom half reflects the same screen and character colors 
as are on the formatting screen. This split screen is 
achieved by a machine language raster interrupt subrou- 
tine starting at location 49860. Also, as on the format- 
ting п, all keyboard input is controlled by the 
sor subroutine at location 49980. Instead of switching 
character sets, however, the f4 key calls forth the repro- 
gramming routine which starts at Line 150. To custom 
design a character, simply type the character you want 
to reprogram anywhere on the bottom half of the screen 
and then press f4. Immediately, an eight by eight grid 
of cyan zeroes and red asterisks will appear in the upper 
right quadrant of the screen, with the asterisks arranged 
in the pattern of the character you typed. The cursor will 
be flashing over the upper left corner of the grid and will 
respond to the screen editor directional keys and char- 
acter keys, but not to the space bar, CLR, HOME, INST, 
or DEL. It is also confined to the grid. To redesign the 
character, just type in a different arrangement of zeroes 
and asterisks. The zeroes will always print in cyan and 
the asterisks in red so that your design will clearly stand 
out. To input your pattern, press any function key. The 
previously typed character will instantly change to your 
design. Further changes can be made simply by repeat- 
ing this process until you are satisfied. A complete char- 
acter set of 255 characters can be reprogrammed in this 
manner. Use the bottom half of the screen as a scratch 
pad to build multicharacter designs, or to experiment with 
character colors and arrangements for incorporation in 
full screen designs on the formatting screen. 

Menu choice 4 jumps to the BASIC print statement 
subroutine beginning at Line 500. New print statements 
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are generated by a combination of two machine language 
subroutines and BASIC. The first machine language sub- 
routine establishes some markers and variables, and the 
second scans the formatting screen and РОКЕ the col- 
or, spacing, and character information for each screen 
line into a new program print statement. New lines are 
formulated at the top of the default screen and then added 
to the program via line 560. This line fills the keyboard 
buffer with RETURNS and then stop the program. The 
program pops in and out of direct mode to add each new 
line and to modify the controlling variables. New pro- 
gram lines start with Line 3002 and are incremented by 
two. The value for the next new line is held by variable 
D in Line 390. It is modified accordingly with each run- 
ning of this subroutine. 

The new program lines for cach screen start with a 
preliminary line which calls a subroutine at Line 60002 
that displays the starting line number for that screen. The. 
second new line establishes the character set and the 
screen, border, and character colors. A third new line 
is generated if the new screen is in either multicolor or 
extended background color mode. Each screen's new lines 
end with a line which provides for a user-controlled de- 
lay. 

The new screen display subroutine called by menu 
choice 5 starts at Line 1600. It first explains how to ad- 
vance the display from screen to screen, or how to re- 
turn control to the formatting screen or menu. Since any 
new screen is actually displayed on the formatting screen, 
any work in progress on this screen will be erased by 
running this subroutine. If you wish to view a previous 
screen(s) and also save your current work, first generate 
print statements for the unfinished screen and then run 
the display routine. 

The deletion subroutine for menu option 6 begins at 
Line 720, and offers four deletion selections. Choice 1 
will delete all of the new screen lines, choice 2 will de- 
lete all of the new screen lines from a particular line that 
you select, and choice 3 will delete all of the lines be- 
tween two user-designated lines. To delete the lines for 
a particular screen, first get the screen's starting and end- 
ing line numbers from the display section. (The ending 
line number of a screen is two less than the starting line 
number of the next screen.) These options all use Line 
560 in a variation of the print statement subroutine de- 
scribed above to delete the designated lines. Choice 4, 
to delete all but the new lines, employs a very different 
method which begins at Line 900. Actually, deletion of 
the old program is more apparent than real. The machine 
language subroutine starting at location 49152 scans 
through the BASIC program looking for the memory lo- 
cation of Line 3000, It then revises the BASIC pointers 
at locations 43, 44, 641, and 642 to indicate this location 
as the beginning of BASIC text. Now, only those lines 
from Line 3000 on can be LISTed, RUN, or SAVEd on 
tape or disk. The new lines will be automatically relocated 
to the default beginning of BASIC by the C-64 upon SAV- 
ing and reLOADing. The original Formatter program can 
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FREE! 


BONUS GIFT WITH ANY SOFTWARE ORDER — AN EXCELLENT PUBLIC 
DOMAIN VERSION OF AN ARCADE HIT GAME ON ITS OWN DISK. 


ARCADE Battenes Included Home Pak 3495 HARDWARE AND PERIPHERALS 

Archon 2895 Calc Result Advanced 6995 BJ. 80 Column Display 134.95 
Archon It Adept 26.95 Calc Result Easy 35.95 Cardco +G Interface. 69.95 
Beachead Il 2595 Complete Personal Accountant 5495 Commodore 801 Ribbons. 795 


Bruce Lee 2495 Consultant (Delphis Oracle) 6895 Commodore Hardware CALL 
Castles of Dr. Creep. 2095 Cut and Paste 3695 indux Disk Drive 27900 
Championship Loderunner 2495 Financial Cookbook 3595 Окпе 10 w/Plug and Prini 199.00 
Computer Quarterback 28.95 Fleet Systems 56.95 Okinate 10 Bik & Wht Ribbon 475 
F15 Strike Eagle 2395 Magic Desk 1 3595  Okinate 10 Color Ribbon. 525 
Flight Simulator I 3595 Mirage Data Base Manager $795 Panasonic KXP1091 Printer 27900 
Impossible Mission 2395 Mirage Word Processor 5695  Prowriter 7500 Printer 22900 
International Soccer 1995 Net Worth 5595 Prownter 8510 AP Printer 29900 
Kennedy Approach 2395 Paperclip w/Spelipack 8295 Prowriter 8510 Ribbons 595 
Micro League Baseball 2895 PFS Fie 5595 
Statistics Disk (1984) 1395 Раси Cale 3495 — LEROY'S CHEATSHEETS $2.95 
Mig Alley Ace mios, Pro Fae pn Basic Paperclip 
Night Mission Pinball 2195 Superbase 64 5295 Lm Paperclip 
One On One 2895 Total Text26 3195 Сас Result Adv Printers 
Pitstop Ii 2795 Total Mailing List & Labels 1695 Calc Result Easy Epson RXBO 
Questron 2795 Сота! (1.4) Gemini 10Х 
Raid Over Moscow 2795 GRAPHICS The Consultant 1525/801 
Solo Flight. 2395 Animation Station 6395 poo 03 QU TRA OK 
Strip Poker 2095 Doodle 2895 Flight Simulator! | Speedscnpt 
Tournament Tennis 1795 Future House Light Pen 2395 For the Beginner Sprites Only 
Zaxxon 2495 Moviemaker 3795 Hes Water Superbase 64 
Pen & Peripheral Vision 41.95 Terminals 

ADVENTURE AND MIND GAMES Print Shop 3195 Smart 64 
^ х Vidtex 

mazon .. 2395 vip 
Adventure Construction Set 37.95 MISCELLANEOUS Word Pro 3/Plus 
‘Adventure Master 2795 Вик Discs - Quantities of 10 1295 
Below the Root 1895 Compuserve Starter Ki 2195 
Bridge 40 1795 Fast Load 2795 
Cutthroats 2895 Мавей Disks - Box of 10 1695 
Dragonworld 2395 Pro-Tech Vinyl Covers 535 
Fahrenheit 451 2395 Simons Basic 3895 
Felony з Tac Н Joystick 995 SPECIALS 
Hitchhikers Guide 2595 Иде 2195 
Infidel 2595 МР Terminal 2995 Caruso Numeric Keypad 
Monty Plays Scrabble 2795 32.95 
Murder By The Dozen. 2395 Compuserve Starter 
Party Quiz: LI. Kit/Vidtex 

arty Quiz Relilis 
Rendevous With Rama 2395 39.95 
Robots of 2795 S-Games 
Sargon It 34.95 (Formerly Hes Games) 
Seven Cities of Gold 2895 11.95 
Starcross 26.95 ы 
Suspended 26.95 
‘Swiss Family Robinson ..... 21 1895 
Trivia Fever 2795 
Ultima Hl 3995 FLOPPY 
Witness 2595 HOUSE 
EDUCATIONAL PROGRAMS istis malae.  TORGERER 
AGE tian ut Street, Box 308, Palmyra. 
ТҰЛҒАСЫ iid 1-800-633-8699 
CBS Success w/Math Series ca In Pa. Call 


Evelyn Wood's Dynamic Reader 
Harcourt Brace Computer SAT 
Kidwriter 19.95 Memory Manor 
Muppet Learning Keys 


А.С. 717 838-8632 


Spell It . 

Spoiiicopier ORDERING & TERMS 
tory Machine 

Word Attack * VISA & М.С. accepted with no 


charge in the continental U.S.A 

* $2.50 shipping charge on orders 
under $100.00 

* Pa. Residents add 6% Sales Tax 
* Prices subject to change w/o 
notice 

* 48 hour shipping for cashier 
check - Money order - charge 


WORD PROC.-DATE BASES- 
SPREADSHEETS 
Batteries Included Home Organizers 
‘Checkbook .. 5 2 
Electronic Address Book 
Home Inventory. 
Mail List. 
Photos/Slides/Movies. 
Recipes 
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be recalled by returning the pointers to their original val- 
ues. 

As mentioned previously, the new lines are formulated 
to display on the formatting screen located in Bank 2. 
То run your new lines on a screen located in another 
Bank, the POKE values in line 3000 must be changed 
accordingly. If you wish to use the default screen, Line 
3000 may be deleted entirely and the POKE A (53272) 
values in subsequent lines either revised or deleted de- 
pending on whether the custom character set is used or 
not. In any case, the variables SC and BC should be de- 
leted as they are only housekeeping values for Formatter's 
use. Other lines, such as the GOSUB 60002, WAIT and 
IF G< >32 lines as well as Lines 60000 through 60004 
should also be deleted unless you want them in your pro- 
gram. 

Menu option 7 also uses a variation of the print state- 
ment subroutine to generate a data statement for each 
reprogrammed character. These statements begin with 
Line 60010 and increment by two. The machine language 
subroutine starting at location 49280 examines the cus- 
tom character set and stores the screen code of each re- 
designed character in an array beginning at location 
50432. BASIC PEEKs this number and prints it as the 
first number in each new data statement. Lines 60006 
and 60008 establish a pair of nested FOR/NEXT loops 
to read and input the character data. As written, these 


~$5.00 


The IEA Instant Editor Assembler 
is now on SALE for only $5.00 
plus $2.00 postage and handling 


Written in 100% machine language 
Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor 


Robin's Software 
[EET MN 55420 
ore ттд 


$9.95 еасһ!!! 
for the Commodore 64 
BLACKJACK GIN RUMMY. 
DISK ог ТАРЕ ZT 


PYSCO SOFTWARE 
Box 301 Bristol, CT 06010 


WANTED 


COMMODORE 64 computers and 1541 Disk 
Drives; $75 for those in working condition. 
Please call 205-221-5211 
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lines will POKE the data into a character set located in 
Bank 2 beginning at location 32768. If you wish to use 
another location for your custom characters, then the val- 
ue 32768 in Line 60008 must be revised to the beginning 
location of your set. 

Menu choice 8 allows you to select which character 
set you wish to use for custom characters — regular or 
upper and lower case. Since the custom character set al- 
ways occupies the same eight page block, both sets can- 
not be available for reprogramming at the same time. 
Also, the data statement subroutine will not make suc- 
cessive sets of data statements for both character sets. 
Statements written for the first set will be overwritten 
by the second set's statements. Therefore, if you decide 
to change sets but have already redesigned some char- 
acters of the other set that you wish to save, then make 
character data statements and save them on tape or disk 
before making the change. 

The final menu choice, 9, exits the program to the de- 
fault screen. I recommend using this exit, especially if 
you wish to LIST and/or revise your new lines. A RUN/ 
STOP when the program is in Bank 2 will permit a read- 
able listing, but a RUN/STOP RESTORE will result іп 
an apparent limbo where little seems to work properly. 
Sometimes RUN plus RETURN will restart the program, 
but occasionally not. Best to avoid the whole problem. 

There are only three more things you need to know 
about Formatter. First, you cannot use quotation marks 
in formatting a screen. The print statement subroutine 
has been programmed to ignore them and substitute a 
space in their place. This is because BASIC does not 
allow a quotation mark to be included in a print state- 
ment. If you wish to use what appears to be quotation 
marks, then program another character to serve that pur- 
pose. Second, if you use the INSerT key to position a 
line on the formatting screen, be sure to use the space 
bar or some other character to erase the quote mode char- 
acters that the INSerT key generates. These characters 
are not visible at first but will show up later when the 
new print statements are run. Lastly, Formatter will not 
pick up a reprogrammed space character if it is the begin- 
ning or ending character in a line. This is because of 
the way the print statement subroutine works. If the first 
character of a screen line is a space, then it is recorded 
as a cursor right, not a space. This continues until some 
other character is found and recorded. Spaces between 
characters are then recorded as spaces, but the spaces 
ending a line are simply forgotten. 

A special note for Eastern House Rabbit users: the Rab- 
bit uses at least one of the same zero page memory lo- 
cations to establish its link with BASIC as is used by a 
couple of Formatter's machine language subroutines. This 
will cause a serious program crash. Therefore, Rabbit 
link into BASIC must be removed by typing *K before 
RUNning Formatter. However, the Rabbit link may be 
reestablished to SAVE and LOAD either Formatter or 
new program lines created by it with no problems. 0 

SEE PROGRAM LISTING ON PAGE 101 
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SELECTACHROME 


A Color Experimentation 
Utility for the С-64 


By Simon Edgeworth 


0 you write your own programs? If you do, 
D it is important to use interesting and effec- 


tive color combinations on the screen. Ex- 
perimenting with different colors normally in- 
volves juggling with commands such as РОКЕ53281,15 
or PRINTCHRS(144). This can be both frustrating and 
time-consuming. 

Selectachrome is designed to make color experimen- 
tation easy. It enables you to try out over 400000 differ- 
ent combinations of border, screen, and text colors. When 
you have found a color scheme which you like, reproduc- 
ing it in your own program is simple, because Selecta- 
chrome tells you exactly which BASIC commands to use. 

Colors are changed by pressing the function keys. Fl 
changes the border, f3 changes the screen, and f5 and 
f7 change the two text colors. The shifted function keys 
step through the colors in reverse direction. 

The text on the screen is continually updated to show 
the names of the current colors, and the corresponding 
BASIC commands. 

Happy colorscheming! O 
SEE PROGRAM LISTING ON PAGE 110 


RE es 
DISINTEGRATOR 


An Arcade Action Game 
for the C-64 


By Barbara Schulak 


isintegrator is an all machine langauge arcade 
D game. The object is to protect your base from 

the invading enemy. For your defense, you 

have at your disposal eight underground silos 
from which you can launch bombs that will disintegrate 
the oncoming enemy. These bombs are activated by press- 
ing the appropriate number key (1-8). 

Тһе enemy comes in waves of 15. Once all 15 ships 
have been successfully shot down, the level is complete 
and the next wave begins to attack at an increased rate 
of speed. There are nine levels in all. Pressing the space 
bar will pause the game. Pressing the space bar a sec- 
ond time will restart the game. 

If the enemy successfully reaches your base, one of 
your "lives" is lost. After three hits, your base is destroyed, 
the score is displayed, and you may choose to play again 
by pressing “Y”. Hitting the RETURN key starts the 
game. O SEE PROGRAM LISTING ON PAGE 98 
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STOP THE SPREAD 
OFADEADLY VIRUS. 


ing. If you 
odstream 


Quick Deadly viruses are rapidly n 


don't act fast, they'll infiltrate vae t 


And in seconds it'll be over. So blast the invaders with 
n. And annihilate them with macro- 


“CELL ПЕН BY HESWARE 
Suggested Retail $14.95 


CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 
HESWARE P.O.BOX 631 S. SAN FRANCISCO, CA. 94083-0631 
‘ADD $2.00 FOR POSTAGE AND HANDLING, УБА AND MASTERCARD AVAILABLE. 


PUSH ALL TH 
RIGHT BUTTONS AND 
YOU COULD BE THE NEXT 

AMERICAN IN SPACE. 


The race for space is not a game. It's a reality. That's why 
we developed a program that will challenge your — —, 
Е our mind. And keep you 
hours. Project Space Sta- 
phisticated way to 


rate a space 
station. You'll even use the 
elements of the actual process 
NASA uses in their design. 
n the mission 


Station today, America’s astro: 
nauts are counting on you. 


PROJECT SPACE STATION BY HESWARE 
Suggested Retail $29.05 


CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 
HESWARE POBOX 631 5 SAN FRANCISCO, CA. 94083-063 
ADD $200 FOR POSTAGE AND HANDLING. VISA AND MASTERCARD AVAILABLE. 
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CRIEATING (CUR TWN GAMES 
ON THIS VIC ANID 6-t 


here were a couple of guys in Orem, Utah, who. 
used to sing along with the Crazy Climber game. 
Not humming, singing, in full operatic voices. 
It attracted a lot of attention, but the truth is that 
they were merely doing out loud what we all secretly 
do in our minds, The music gets to you. 
You don't realize how much you need it until you play 
а machine whose sound is damaged or turned off. In a 
mall in Greensboro there's a Crystal Castle with one voice: 
missing— drives me crazy. And the Donkey Kong іп а 
mall in South Bend, Indiana, that has no music at all— 
well, I can't play it. I just can't seem to get the rhythm. 
And that's just the music. Even more important are 
the sound effects. Instead of providing background or 
mood, they actually communicate to the player what is. 
going on. 


YOU CAN'T LOOK AT EVERYTHING 

When you're playing you can't keep your eyes on every- 
thing. Even when you get that glassy, unfocused gaze 
that the best players get, there's still a limit to how many 
things you can pay attention to at the same time —with 
your eyes. 

But your ears can pick up a lot of additional informa- 
tion. The shooting sound tells you that the computer got 
your “fire” message. The explosion tells you that you hit 
‘one of the bad guys, The much louder explosion tells 
you that the bad guys got something you were trying to 
protect. 

There are beeps for picking something up and boops 
for dropping something, boinks for bumping into walls, 
hums to announce that the worst monster is about to come 
in and eat you, and sad little melodies to tell you that 
you're dead. 

Sometimes the sounds are realistic—an engine sound 
for a car race game, for instance. The higher it rises in 
pitch, the faster you're going. The almost painful squeak- 
ing sounds in Mario Brothers tells you you're walking 
оп ice. 

Sometimes the sounds are nothing like the real world. 
But as you play the game, you learn which sound means 
which event. And from that moment on, you don't even: 
have to see the event to know that it's taken place. The 
sound of the bouncing ball in Mr. Do tells you that it 
hasn't hit anything yet, so you know you can't throw it 
again. 

"Тһе sounds you create for your game need to be distinct 
from each other, so that the player doesn't get confused 
about what has happened. 

The sounds also should be interesting, sometimes 


By Orson Scott Cord 
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FREE SHIPPING 


Quality Bulk Disks 


с 


As low эз: 


Includes: 
— High Quality Disk — Write Protect Tabs. 
— Re-inforcing Hub Ring — User ID Labels 
— Tyvek Sleeves. — Free Shipping 
— Lifetime Warranty 


SS/SD, Quantity 500 


These are first quality disks by a major manufacturer — no seconds or cosmetic imperfections. You save because there are no 
packaging or advertising costs, not because these are somebody else's rejects. Each disk is tested on and between tracks at 
levels 25% more critical than industry standards. Total surface testing assures a 100% error free disk. 


* Durability — 3.5 million wear revolutions on a single track. 
* Special Lubrication — improves head to disk interface, improving data reliability and extending disk life. 
* Unique Jacket — Temperature resistant, low mar vinyl. The full adhesive edge seal provides superior dimensional stability. 


OUR 50 100 300 500 
PRODUCT & DESCRIPTION DISKS DISKS DISKS DISKS 
11086 SS/SD Bulk $0.94 $0.87 $0.85 $0.79 
11096 SS/DD Bulk $0.99 $0.91 $0.89 $0.86 
11106 DS/DD Bulk $1.07 $0.99 $0.97 $0.94 
11206 05/00 Flippies Bulk $1.12 $104 $102 $0.99 


* AVAILABLE WITH DISK PURCHASE ONLY * 


pe BOXED DISK ESOS SURGE PROTECTOR Product #19212 

PROD, и DESCRIPTION BOXES BOXES BOXES. | ОР кире protector ind oto онома шой а ресмоне 
11112 Има Magnetics 55/00 Boned $1095 $1020 $995 HEAD CLEANING KIT. Product «йаз 
11122 Има Magnetics 05/00 Boxed $1195 51120 $1095 Recoton head cleaning kit provides six premeasured wet/dry 
10602 Maxell MD1 55/00 $1695 $1495 $1455 cleanings. Non-abrasive, quick evaporating ............. $4.95 
10632 Maxell MD2 05/00 52145 51945 $1895 DATA OAIE ЕЕЕ Жіті 
10332 — Verbatim Datalife 55/00 $1895 $1695 $1655 Positive locking lid with carrying handle built in insures 
10342 — Verbatim Datalife 08/00 $2295 52095 52055 protection for up to 60 disks. Six dividers ............... $5.95 

1-800-742-2200, ext. 100 

PRICING: ^ Additional discounts are available for larger purchases. Different products may be added together for 


maximum quantity discount. 

ORDERING: Use our toli free order line! The number is 800-742-2200, extension 100. This number is for ordering 
Only.—the girls cannot answer questions. For questions and special orders call (717) 564-1400. When 
you order, please order by product number. 

SHIPPING: Ме pay the shipping on all orders. All orders shipped UPS ground unless otherwise requested. 

PAYMENT: Ме ship all orders COD. We also accept MasterCard and Visa. There are no additional charges for 
COD or credit cards. We offer 3% discount for prepayment. 
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strange, sometimes comic, to make your game feel new. 
Don't you get tired of the same old shooting noises when 
you play other people's games? 


MAKING SOUNDS ON THE 64 

In the last two columns we've covered everything about 
sound production on the VIC and 64 except the noise 
generators. But it doesn't hurt to review. Here's a useful 
table of all the locations used for the various sounds. 

Volume Control. A number from 0 (softest) to 15 
(loudest) is POKEd into 54296. A value of 0 turns off 
all sound. 

Voices. Three voices are available, each separately con- 
trolled, Voice 0 has seven registers starting at 54272; voice 
1 has seven registers starting at 54279; voice 2 has seven 
registers starting at 54286. Starting with the voice's base 
address and adding the value shown, each of the registers 
are as follows: 

Pitch Control: Ваѕе+0 and base+1. The first address 
contains the low byte, the second address the high byte 
of the pitch of the note to be played by that voice. For 
rough pitch control (where accurate melody doesn't mat- 
ter), only the high byte need be used. For the voice to 
make any sound at all, however, one of the pitch (or fre- 
quency) registers must have a non-zero value. 

Pulse Width: Base+2 and base+3. The first address 
contains the low byte and the second address the high 
nybble of the pulse width. These registers are only used 
if the pulse wave form is selected in the voice control 
register below; otherwis 

Voice Control Register: Base--4. Each bit of this reg- 
ister sends a different message to the sound chip. Each 
bit can be turned on by ORing it with a number or turned 
off by ANDing it with a number. As each function is 
described, the numbers to OR (turn on) or AND (turn 
off) are included. To use those numbers, you would use 
this formula: 


POKE register, PEEK(register)AND turn 
off number 


or 


POKE register, PEEK(register)OR turn on 


number 


Here are the functions of the voice control register: 

(Gate): Begin executing the sound envelope (OR 1) 
or release the currently sustained sound envelope (AND 
254). This has the effect of turning each voice on or off. 

(Sync Bit): Synchronize with another voice; OR 2, 
AND 253. This is an advanced sound technique. 

(Ring Modulation): If the triangle waveform is se- 
lected, add overtones from another voice; OR 4, AND 
251. This is an advanced sound technique (see “SAWING 
WOOD" for an example of its use). 

(Test Bit): OR 8, AND 247. Advanced sound tech- 
nique. 

(Triangle Waveform): Turn off all waveforms with 
AND 240, then OR 16. 

(Sawtooth Waveform): Turn off all waveforms with 
AND 240, then OR 32. 


these locations have no effect. 


(Pulse Waveform): Turn off all waveforms with AND 
240, then OR 64. A pulse width must be selected at 
base+2 and base+3 when using this waveform. 

(Noise Waveform): Turn off all waveforms with AND 
240, then OR 128. The pitch has a less noticeable effect 
on the noise waveform, but the difference between a high- 
byte pitch of 255 and a high-byte pitch of 1 is very clear. 

One of the waveforms must be selected before any 
sound can be heard. Since both the waveform and the 
gate are necessary to cause a sound, the two numbers 
can be combined and POKEd in at once. For instance, 
to gate on voice 0 with a sawtooth waveform, you could 
use 


POKE 54276,33 


Sound Envelope: Base+5 and base +6. The attack val- 
ue, a number from 0 to 15, times 16, determines how 
quickly the volume rises from nothing to loudest when 
the note is first gated on; 0 is quickest, 15 slowest. The 
decay value, a number from 0 to 15, determines how 
quickly the volume falls from the peak volume down to 
the sustain volume; again, 0 is quickest. 

The sustain value, a number from 0 to 15, times 16, 
is the volume at which the note is sustained until it is 
gated off; 0 is softest, 15 loudest. The release value, a 
number from 0 to 15, determines how quickly the volume 
falls from the sustain value to silence when the note is 
gated off; again, 0 is quickest. 

The attack and decay are combined and POKEd into 
base+5. The sustain and release are combined and . 


MERLIN 64 


THE BEST MACRO ASSEMBLER FOR THE COMMODORE 64 
Easy to use for the beginner or professional, Merlin 64 is 
an extremely powerful macro assembler. 

Just a few of its features include: 

© Fast assembly times 

© Word processor like editor 

© Conditional assemblies, 
Optional assembly to disk 

9 Includes Sourceror, an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

€ Macro library of common 
operations 

© Cross Ref. utility program 

© 80 column display 
compatibility 


“This is the best assembler I've seen for the Commodore 64. , ." 
Wm. Sanders / Assembly Language for Kids 


7. әл outstanding value. ..| cart imagine how К could 
C Peterson /AHOYLN раа 


$49.95" мын 


Ask your local dealer for details, or just write or call: 


Р.О. Box 582 e Santee, CA 92071 e Telephone: 619/562-3221 


POKEGd into base--6. For instance, suppose we want an 
attack of 3, a decay of 9, a sustain of 5, and a release 
of I5. We would use this formula: 


POKE base+5, (3*16) + 9:POKE base+6, 
(5*16)415 


Sound envelopes apply regardless of the waveform se- 
lected. This allows some control of noises as well as mu- 
sical tones. 


MAKING SOUNDS ON THE VIC 

The VIC make: noises much more simply. Only 
five registers arc 

Pitch Control. The first three registers produce mu- 
sical notes. Each register has its own waveform, which 
cannot be changed, and each register is exactly one oc- 
tave higher than the register before. The lowest is at ad- 
dress 36784, the middle voice at address 36785, and the 
highest at address 36786. 

The fourth register, at 36787, produces noise instead 
of a musical note, but it is used exactly the same way 
as the three musical note registers. 

То select the pitch for each voice, including the noise 
register, you use a number from 0 to 127. 0 is the lowest 
and 127 the highest pitch. Remember, a number POKEd 
into 36784 is exactly two octaves lower than the same 
number POKEd into 36876. 

То turn the voice on, you add 128 to the pitch before 
POKEing it in. So to play a C, which has a pitch of 97, 
you would use 


POKE register, 974128 


If a register already contains the pitch you want it to 
play, and you merely want to turn it on, you can use 


POKE register, PEEK(register) OR 128 


To turn off the register without disturbing the pitch it 
is playing, you can use 


POKE register, PEEK(register)AND 127 


Volume Control. The volume is controlled at loca- 
tion 36878, and must be a number from 0 (silent) to 15 
(loudest). The same location also controls the auxiliary 
color for the screen if you are using multicolor mode. 
If you aren't using multicolor mode, then no harm is done 
if you simply POKE the volume value into 36878. If you 
need to protect the auxiliary color code, then you will use: 


POKE 36878,(PEEK(36878)AND 240)0R 
volume 


MANIPULATING THE SOUND 
WHILE IT'S PLAYING 

With the music programs in the last two i 
Ahoy!, we have done nothing more than play sii 
si 


sues of 
ріс mu- 
We set the waveforms, envelopes, volume before the 


melody is played, and then changed the pitch from note 
10 note, gating each note on, counting the duration, and 
gating it off when its time is up. 

То create more elaborate sound effects, we don't play 
so many different notes, but each one longer, and 
we manipulate pitch and volume (and, with the 64, wave- 
form) while the note is being played. 

Often, you will want to get rid of the 64's sound en- 
velopes for sound effects (though just as often you will 
want to use envelopes). To get rid of the sound envel- 
оре, you simply use a value of 0 for the attack/decay reg- 
ister and a value of 15 for the sustain/release register. 
This has the effect of bringing the voice up to full vol- 
ume as quickly as possible, leaving it at full volume as 
long as the note is held, and then shutting it off immedi- 
ately as soon as the note is gated off. You will notice 
that this makes the 64 function much like the VIC. 

To shape a sound effect, you first set up the note by 
selecting waveform, envelope, and so forth, along with 
the initial pitch and initial volume. Then you gate the 
sound on. As soon as the sound is playing, you begin 
manipulating it. 

Changing Pitch. You can start the pitch high, then 
bring it down by POKEing successively lower numbers 
into the pitch control register, using a "backward" loop: 


64 version: 


FOR 1-255 TO 5 STEP -10:POKE pitch high- 
byte register, I:NEXT 


VIC version: 


FOR 1=125 TO 5 STEP -5:POKE voice 
register, 14128:NEXT 


Notice that I used a step of 10 (5 in the VIC version). 
The higher the step value, the greater the change in pitch 
at each step in the loop. In this loop, the pitch would 
get lower in 26 increments. 

Because the sound is not gated on or off between each 
pitch change, the listener usually can't hear the change 
from one pitch to the next. It sounds like a smooth, con- 
tinuous swoop. 

If the loop went from 5 to 125, in steps of 20, it would 
swoop upward very quickly went from 5 to 125 in 
steps of 2, it would rise very slowly. 

Or you can create a vibrato by alternating between two 
pitches, like thi: 


FOR 1-0 TO 19:POKE pitch register, 
60:POKE pitch register, 90:NEXT 


By adding short delay loops—like FOR Х-0 to 9: 
NEXT- between each pitch change, the vibrato could be 
made more distinct. 

These pitch changes also can be used with noise wave- 
forms on the 64 and the noise voice on the VIC, but the 
differences are much less clear. However, it does change 
the quality of the noise considerably. 
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sium коли коз Character codes: CBM ASCII code. The Manager” A sophisticated database manager 
Built-in disk drivet Intelligent high speed unit with Print speed: 60 characters per second ТИНА КРМ ИШИН e 
57 floppy disk recorder. 170K formatted data Stor: — Maximum columns: 80 columns payable/receivable, inventory. appointments, task 
аде; 35 tracks, 16K ROM. Uses single sided. single — Character spacing: 10 characters per inch. ‘manager. Home uses: mailing lists, home inventory, 
density disk. Serial interface, Second serial portto (ine eed spacing: 6 lines per inch in character mode recipes, collection organizer, investment tracking 
chain second drive or printer or В lines per inch selectable 9 lines per inch in checkbook balancing. School uses: research art 
Bullt-la color monitor | Displays 40 columns x25lines graphics mode. cle index, gradebook 

of text on 5" screen. High resolution. 320 x 200 pix: Line feed speed: 5 lines second in character modi 

els, 16 background, character colors 7.5 nts per second I praphics mode TOTAL 


Built-in ROM cartridge port! Insert ROM program car: — Paper feed: friction feed. (Tractor feed optional) 
ridge. Multitude of subjects available in stores Paper width: 4 5° to 8.5" width. Up to 10° with option. Personal Computer System 
across the nation! al tractor feed. Now Available At 


Multiple copies: Original plus maximum of two copies. FAR BELOW dealer cost! 


Compatible with Commodore Computer Systems (Not included in package price.) TOTAL 
JOYSTICKS (set of 2) 64 MODEM PACKAGE $ 488 


Give you the fun of playing a wide Access new worlds of information with you 
selection of games. computer PRICE...... 


Mfr. List: $59.90 pr. $1 8 Mfr, List: $124.95 $44 SURE 
Liquidation Price ....... pr. Liquidation Price Other popular brands of computer peripherals 
Item 5779622 01. S/N: $6.00 pt tem W877.6368600,5/ saoo | available at liquidation prices. For informa- 


боп, Сай TOLL FREE: 1-800-328-0609. 
ни y) р] SEND ME THE ITEMS 1 HAVE LISTED BELOW | c. o.M.B. CO. = 
(шәм щш А Price su 14616 28 Ave. М. Minneapolis, MN 85441-3357 
Toll-Free: 1-800-328-0609 Curd" 2 VISA S Am fe. C Diners Сы 
E | Your check is welcome! oet. мә Ep, 
Na delays when You pey by check! 


C.O.M.B. CO. 


Authorized Liquidator 
14615 28TH AVENUE МОЙТ! 
MINNEAPOLIS, MINNESOTA 55441-2357 
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Are you paying too much for diskettes? Try our 
first quality, prime, 5%” diskettes (no rejects, no 
seconds) al these fantasic sale prices and save, 
save, SAVE! Disks are packaged in boxes of 50; 
each box contains 5 shrink-wrapped 10-packs that 
include diskettes in sleeves, labels, and wrie- 
protect tabs. 

Each diskette is certified to be 100% error tree and 
comes with а Мойте warranty (if you have a 
problem, we'll replace the diskette). All diskettes 
include hub reinforcement rings and write 
protect notch, 

All diskottos aro double density and work in either 
single or double density dnves. 

SS, DD Diskettes, Box of 50 

32391 $49,50-199¢ га! 


DS, DD Diskettes, Box of 50 
564,50-29 ез! 


The Most Complete Disk Drive 
You Can Buy 


Includes Word Processor, Spread Sheet, and 


Data Base Manager 
oNLv 5259 


INDUS GT 


State-cteart фий бте lor C64 and VIC-20 features LED 
Мед OCAL. весил wrie pect. buie wedge and 
Operating speeds up 1o 400% later. Package chases cables 
эла power supp campng case mat doutes aa a Gok strage. 
Na AND sofware staner package festum word processor 


spreadsheet, and database manager program! 
FULL YEAR PARTS AND LABOR WARRANTY 


33443 Indus GT Disk Drive ONLY %259 


CARTRIDGE EXPANDER 
Plus $22.95 
FAST LOAD 

OFFER! 


дерт саллаи expander fat 


34220 2-Slot Cartridge Expander 
The carriage expander а а great companen lor the Epyx Fast Load 
Cannoge—you cen мер & petmanenty уннер Put have a tee 


14216 Fast Load Cartridge (өз теш vous, 829.95 
Fast Load ONLY $22.95 


with purchase of cartridge expander! 


We gladly accept 
тай orders! 


TENEX po. 


74” 219/259-7051 


less than $20.00 $3.75 
"CES ы 


We can otier you some of the lowest prices in the country on the most 
Popular printers. manters and тта 
low. but io make sure you get the best deal you can, we wil aiso meat 
competivve prices in this publication when placed on an equal basis 
(Remember we don charge tor ute of your credi card, impose өксөзіне 
ipping Tees, or use any diner hidden extras 10 boost the price you ра 
uter industry, we Can only 
meet prices at the бте you place your order. wo cannot adjunt prices on 
Sera Ordered or Pe on an sarne аме) Another plus charge card 
‘customers —your charge card ӊ bild а! tme of shipment only for the oma. 
Shipped —no early bang. no long wan lor the merchandise you already 


pad tor 
% THE BEST PRICES o THE NCE + 
WHY SHOP ANYWI 


COMPUTERFACTS® = э 


Technical Service Data for 
Your Computer and Peripherals 


Sams introduces COMPUTERFACTS 
3380 VEN Conover 
prog 


lor Commodore computers and pantera can be run with the PPI 


GRAPHICS PRINTER INTERFACE 
The PPI (Parallel Printer interface) from DSI is а hi 

E EE 

and most any parallel printer. Print true Comr ics and 

EIE. 


performance printer interface for your 
dore 64 or VIC-20, offered at an unbelievable price! 
fully emulates a Commodore printer во that 

Specific printer. Works wih Star, Epson, ВМС. and many more. Comes 
complete with all necessary cables for quick installation and includes 
езу лоодон users manual ат 


33565 Parallel Printer interface 


DUST COVER and 


"EVERYTHING BOOK" 
INTRODUCTORY SPECIAL 


Get to know us by ordern MS great dust cover 
or you VIC-20 of Commodore 64 and ov сәз: 
юз “Тһе Everytnng Book tor me Commodore 
Са ала ИСТО Home Computers. for $295 


TA 
PAPER TRACTOR `| 


Paper Tractor cames ordinary sheet paper 
through your tractor = feed printer! 

‘Simply place your lettemnead. checks, 
invoices, forms. even legal-sze sheets 
into the durable flexible plastic carrier and 
feed into your adjustable Vractor-drve 
printer. Works with any printer, carries any 


“a 511.95 


(no extra shopng or nanging charges) Со 


я arisane vansitcent B gauge vey! sewn 
Out exacing SAGAS win remorced seans 
Discover me savngs ard easy shoppeg а 
эше HON Tener Computer Express 


2.95 


SHIPPING CHARGES 
ORDER AMOUNT CHARGE 


375.00-$149.99 675 
$15000-$29999 775 
5300 8 up 875 
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Changing Volume. Here is where you can have the 
most fun. By gradually changing the volume of a held 
note, you can make it fade and swell. 
es, you can make repeating engine noises. 
the Helicopter program starts at 0 volume and rises quick- 
ly to 15, then falls again, over and over. If it happened 
faster, it would sound more like a motorboat; if it hap- 
pened slower, it would sound more like a chugging train. 

Combining Voices. Most of the sound effects here use 
more than one voice, usually combining noise with musi- 
cal sounds, With Helicopter, for instance, while voi 
1 and 2 are making the noisy “chopper” sound, voice 0 
is being sustained at a low level, playing a deep hum- 
ming sound. The combination makes it sound like you 
can hear both the chopping of the blades through the air 
and the thrumming of the engine. To make the ‘copter 
seem more distant, you simply delete voice 0% tone. 


ONE SOUND IS WORTH A THOUSAND WORDS 

Тһе imit, of course, to how much I can explain — 
sounds have to be heard to be understood. The example 
programs included with this column show many differ- 
ent approaches. 

In every program, lines 900 to 990 are a setup sub- 
routine that merely assigns register addresses to variables, 
The programs for the 64 use the following variables for 
the register addresses: 

AD(0), AD(I), AD(2): attack/decay registers for voic- 
es 0, 1, and 2 

SR(n): sustain/release registers 0-2. 

FL (n) and FH (n): frequency or pitch registers, low byte 
and high byte. Usually only the high-byte register is used 
for these coarse pitch manipulations. 

GT (n): gate or voice control registers 0-2. 

VL: volume control register. 

The programs for the VIC use the following variables 
for register addresses: 

VC (n): voices 0 through 2. Voice 2 is the noise register. 

VL: volume control register. 

In every program, lines 100 through 190 are used mere- 
ly to access the sound effect—by pressing SHIFT you 
cause the sound to be activated. 

Inevery program, the actual sound effect is produced 
in lines 20 through 90. To understand what is going on, 
study those lines. The first few lines usually set up the 
sound envelope (with 64 programs) and initial pitch and 
volume values, Then the sound is gated on, and the rest 
of the routine alters pitch and volume to make the sound 
effect. 

Some programs, like the Gunshor variations, Sawing 
Wood, and Boink, make only one brief sound effect. To 
repeat them, you press SHIFT over and over. The Heli- 
copter program repeats until you press SHIFT to stop 
it. The Seashore program repeats with randomized dif- 
ferences until you press RUN/STOP-RESTORE. 

Once you understand what each program is doing, try 
changing small things, like the number of repetitions in 
a delay loop or the STEP value in a loop that changes 
pitch or volume. By changing one value at a time and 
RUNning the program, you can hear how the sound is 
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shaped by each element of the routine. It won't be long 
before you'll be developing your own sound effects from 
scratch. 


COMBINING WITH YOUR GAME 

Often it is just fine for your program to stop cold while 
it executes a sound-effect routine. The sound effect when 
the player-figure is “killed,” for instance, can take as long 
as you want it to take—the action is halted anyway. 

However, many effects should go on while the action 
continues. This gets much trickier. You have to integrate 
the pitch and volume changes into your movement rou- 
tines. Each POKE to change a sound will slow down the 
movement. As long as you're working in BASIC, that's 
the price you pay for sound, and you'll undoubtedly end 
up simplifying sound or movement or both in order to 
get adequate speed. 

Professional games are written to use machine language 
routines running during interrupts and timed with sys- 
tem timers to create sound effects and play background 
music without slowing down the program. This is not 
possible in Commodore BASIC (though some BASICs, 
like the IBM PC's BASIC, have a background music mode 
that does pretty well). 

But don't let that discourage you. Sound doesn't have 
to be continuous to be effective. If you have excellent 
music during lulls and some sound effects where they're 
most needed, the player will get the feeling of a com- 
plete game world. 


End Cartridge Clutter! 


NOW - ANYONE CAN COPY 
C64 CARTRIDGES - FAST! 


BUS — lets you copy and store up to 17 
cartridges on a single diskette. 


WE GUARANTEE STORAGE AND 
PLAYBACK OF ALL STANDARD 


COMMODORE 64 CARTRIDGES 
€BUS — The Cartridge Back-up System 
„95 


.$99. 


for the Commodore 64.. 
Price includes CBUS | Cartridge Snopshooter, CBUS II Cortridge 
Emulator, Diskette with all necessary programs. Additional 
CBUS It's available for $69.95. Please add $3.00 for shipping and 
hondling. 


PA residents please add 6%. 
VISA, MC, CHECK, M.O. Accepted 
chi 


ssociat 


р, 07: 083 
CALL TOLL FREE — 1-800-CBUS-Có4 
IN PA — (215) 622-5495 
retos à түлөн ien d oto Dra ін 


Reader Service No. 182 


AHOY! 25 


http 


italia.net 


And there's no law that says you can't d sound 
effects even for word games and text adventures. Such 
games play slowly enough that a few clever sound ef- 
fects won't noticeably slow down the action —and will 
add immeasurably to the fun of playing. Why not have 
the sound of somebody walking up or down a flight of 
stairs in a text adventure? Or the swish of a sword-slash 
that missed? Or the crash or an explosion? Why not have 
musical reminders that time is running out, fuel is run- 
ning low, or a prisoner is running away? 


NOTES ON PAST COLUMNS 

For those of you who typed in the Mansion Mystery 
a few months ago and think I cheated you, here are some 
of the problems and how to fix them. 

1. You ordered the disk and the program doesn't run. 
Source of the problem: a few disks were sent out with 
а trashed version of the program on it. Solution: send 
your disk back for a free replacement. 

2. You get an error message when you first run the 
program. Source of the problem: if you ran the Display 
Setup program to create the disk or tape file of the man- 
sion map, and then LOADed and ran Mansion Game 
without turning the machine off and on again, the Man- 
sion Game program found the map already in memory 
and did not execute the setup routines. Solution: turn the 
machine off and on again, then LOAD and RUN Мал- 
sion Game. If you still get an error, then you have a typ- 
ing mistake. 

3. Weird things happen with the color when you first 


enter a new wing of the house. Source of the problem: 
you have a very early 64 which does weird things with 
color memory. Solution: buy a new 64 or live with the 
problem—I don't understand why it's happening on those 
few machines and haven't the faintest idea how to elimi- 
nate the problem. There's no logical reason it should be 
happening. 

If you problem doesn't fall under any of these categor- 
ies, then the program doesn't run because you have made 
à typing error. The unfortunate thing is that the program 
deliberately makes hash of screen memory, so that the 
error messages are often completely invisible. I suggest 
that you LOAD your copy of the program and check it 
against the Bug Repellent, or LIST it line by line, check- 
ing it against the printout in Ahoy! Or you can give up 
and send in for the disk... 

That's the problem with mammoth programs like that. 
They're so long that typing them in is agony, finding ty- 
pos is even harder, and then when it doesn't work you 
get homicidal thoughts. Please don't act out your fanta- 
ies of axe murder and slow torture on me. The disks 
I send in to Ahoy! always contain working versions of 
the programs — 1 LOAD and RUN every program just be- 
fore mailing the disk, If you want to cause bodily injury 
to someone, I suggest you look at the masthead in this 
issue of Ahoy! and pick a name at random. The over- 
worked, underpaid staff members at Ahoy! are always 
looking for interludes of violence and terror during the 
long, dull working day. О 

SEE PROGRAM LISTINGS ON PAGE 91 


Dreams CAN come true! 


пети 
ш\л 8:8 


Back in June of 1983, Kelvin Lacy 
had a dream. He dreamed of creating 
one integrated program that would 
include a spreadsheet, business. 
graphics and a database. А program 
with the power of Lotus 123. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. Ignoring the 
skeptical, he started on VIZASTAR. 


Now, after 15 months, his dream has 
come true. VIZASTAR has a full 
featured spreadsheet, as qood as 
Multiplan. But much faster —faster 
than many spreadsheets on the ІВМ 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It is menu 
driven, using the latest techniques іп 
user-friendliness. It is compatible with 
virtually all printers and word 
processors, Up to 9 windows can be 
open simultaneously, anywhere. 
Remarkably, 10K of memory is 
available for spreadsheet use. 
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The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest 


Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D “skyscraper” graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key to VIZASTAR's power—the first 
and only program of this kind on the 
С-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 
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‘Actual screen dump printed by VIZASTAR 


VIZASTAR includes a cartridge, a 1541 
diskette with а backup, reference and 
tutorial manuals. VIZASTAR is ONLY 
$119.97. We are so positive you will be 
delighted with VIZASTAR that we offer а 
154ау money-back guarantee. Try it risk 
free! Compare VIZASTAR with any other 
spreadsheet or database. 

So order today. Call or send a check or 
Money Order. Calif. residents add 6,5% 
sales tax. MC/VISA accepted. 

Add P&H: UPS -$3; COD, Canada—$6 


SOLID STATE SOFTWARE 


1125 E. Hillsdale Blvd., Suite 104 
Foster City, CA 94404-1609 
(415) 341-5606 


Dealer Inquiries Welcome 
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SOUND-A-RAMA 


fl SOUND EFFECTS SHOWCASE FOR THE LO 


By Bruce Bartlett 


ound-A-Rama displays the incredible sound 
capabilities of the Commodore 64. This 
menu-driven program includes fifteen fantas- 


tic sound effects, a Drum Machine, and a 
Computer Tape Recorder. You type in the letter corre- 
sponding to the desired sound effect, and the effect plays. 

The letter of your choice lights up to indicate which 
effect is playing; otherwise the letters are light blue. 

The Drum Machine is a subroutine containing six 
sounds of a drum set. You play it by hitting number keys 
1 through 6. With the Computer Tape Recorder, you play 
music on the number keys. The computer “records” what 
you play, then reproduces the melody just as you played 
it—with correct pitches and timing. 

For best sound quality (especially with the Drum Ma- 
chine), you may want to play the computer sounds 
through a hi-fi system. To do this, you can obtain a long 
“patch cord" with an RCA phono plug on each end (avail- 
able at Radio Shack). Plug your computer audio output 
into an "aux" input jack on the hi-fi system. 

These sound effects can be added to your own pro- 
grams by typing in the appropriate subroutines and ini- 
tializing statements. Each effect is preceded by its title 
in a REM statement. Lines 1530-1550 should also be in- 
cluded; they clear the sound chip and define the sound 
parameters. In addition, the Computer Tape Recorder and 
Drum Machine have initializing statements at line 1860 
and lines 1920-1930 respectively. The main loops for these 
subroutines are near the beginning of the program. 


HOW THE PROGRAM WORKS 

In the sound subroutines, up to three kinds of FOR- 
NEXT loops are used. FOR Е = ... NEXT Е incre- 
ments or decrements frequency. That is, it sweeps the 
pitch from low to high, or vice versa. FOR D — .. 
NEXT D increments or decrements duration. It varies 
the duration or length of tones. FOR N — ... NEXT 
N increments the number of repetitions, to repeat an ef- 
fect several times. 

Described below are the definitions of the program var- 
jables. All the following variables refer to Voice 1 ex- 
cept as noted: 
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S = 54272, the start of sound-chip memory 

= lower frequency (least significant bit) 

upper frequency (most significant bit) 

waveform 

attack/decay 

vustain/release 

Voice 2 waveform 

Voice 2 lower frequency 

Voice 2 upper frequency 

Voice 2 attack/decay 

Voice 2 sustain/release 

SL = SM = Voice 3 lower frequency, used in ring modula- 
tion and synchronization modes. 

SU = $+15 = Voice 3 upper frequency, used in ring modula- 
tion and synchronization modes. 

S422 = filter upper cutoff frequency 

filter and resonance modes 

+24 = volume and bandpass 

frequency (when used in a FOR-NEXT loop) 

D = duration (when used in a FOR-NEXT loop) 

N = number of repetitions (when used in a FOR-NEXT loop) 

POKEW,I9 enables synchronization 

РОКЕҰ, 21 enables ring modulation 


Described below are the functions of the program lines. 
Let's start at the program initialization: 


Line 1530 clears the sound chip. 

Lines 1540-1550 define the sound parameters. 

Lines 1560-1750 are the screen display, the main menu. 

Line 1760 resets the attack/decay and sustain/release to nominal 
values for most of the sound effects. 

Line 1770 restores a yellow letter to light blue after a sound ef- 
fect has played. 

Line 1780 gets keyboard input, 

Line 1790 converts the typed-in letter to a number for use with the 
ON-GOTO statement in line 1830. 

Line 1800 colors the typed-in letter yellow on the screen to indi- 
cate which sound effect is playing. 

Lines 1810-1830 branch to the appropriate subroutines for each 
sound effect. 

Lines 1860-1900 are the Computer Tape Recorder initialization. 

Lines 1920-1970 are the Drum Machine initialization. (Note: ini- 
tializations are put at the end of the program so that the main 
loops can go at the beginning of the program. This increases 
execution speed. For the same reason, numeric variables are 
defined as alphabetic variables in the Computer Tape Re- 
corder and Drum Machine subroutines. 
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Lines 130-1500 are the sound effect subroutines. 


Let's briefly describe what's happening in each sound- 
effect subroutine. I won't mention the ADSR settings since 
they are self-explanatory. In the last line of each effect, 
the voice is turned off. If the filter mode or resonance 
have been used, they are also turned off. Then the pro- 
gram goes back to line 1760 to reset the selected letter 
to blue and get a new keystroke. 

Computer Tape Recorder is a program in itself. To play 


а note, the user hits a number key for a particular duration. 


The program (1) assigns the note's number to a number- 
array element, (2) converts the number to a frequency, 
(3) determines the note's duration (by counting elapsed 
time from TI$="000000"), and (4) assigns the duration 
to a duration-array element. This process is repeated each 
time a note is struck. 

During playback, each successive element of the stored 
arrays is used to reconstruct the entered melody. That 
is, each number in the number-array is converted to а 
frequency, and is played for the duration indicated by each 
element of the duration-array. This process is repeated 
for each note in the melody. 

Let's explain each line of Computer Tape Recorder. In 
this explanation, alphabetic variables have been converted 
back into numbers for clarity. 


Line 130 gets keyboard input, and assigns each keystroke to an 
element of the number-array CS(N). 
Line 160 can be rewritten as 


160 POKES +4,16:D(N —1) =TL:TIS="000000": POKES +4, 17: 
POKES +1,10*VAL(CS(N) ) 


Line 160 turns off the waveform (POKES +4,16), assigns the dur- 
ation TI of the note just played to a duration array D(N—1), 
resets the timer (T1S="000000"), turns on the triangle wave- 


form (POKES+4,17), and plays the frequency 10*VAL(CS(N) ). 


Line 170 increments the array number (N=N +1) then returns to 
line 130 to get more notes, 

Line 140 says, “If keyboard input is the letter ‘P’ and N > 1, then 
play the recording.” M is set equal to N, the index number 
of the last array element. Then N is set to 1 to reset the array 
to the beginning, and the program goes to Line 180. 

Line 180 turns on the triangle waveform, plays the frequency indi- 
cated by the number-array element for the duration indicated by 
the duration-array clement, then turns off the waveform. 

Line 190 increments the array-element index. If the array-element 
index equals M (the index of the final element played), then 
the Computer Tape Recorder subrouutine reruns. 


Drum Machine is another program-within-a-program. 
Line 220 gets keyboard input. Line 240 branches to the 
appropriate subroutine for each drum sound. 

Each drum sound is a tone or noise set to a certain 
frequency and attack/decay/sustain/release. At the begin- 
ning of the “tom-tom” and “kick drum” sounds, the vol- 
ume is quickly dropped and restored to maximum. This 
creates a “click” which simulates the drumstick hitting 
the drum. 

Winding Down Record is a sequence of four notes 
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played over and over with increasing duration and de- 
creasing frequency. 

Pulverizer enables synchronization, sets the Voice-3 
upper frequency, and sweeps Voice 1 downward in pitch 
at a rate (STEP-N) that increases with each repetition. 
The sweep is repeated 20 times. 

Disintegrator sets the Voice-3 frequency, enables ring 
modulation, and repetitively sweeps Voice 1 up in fre- 
quency at an ever-increasing rate, three times. 

Old Washing Machine plays a triangle wave (РОКЕ 
W,17) for a short duration, and turns it off with a saw- 
tooth-wave shutoff (POKE W,32). This creates a noi 
burst. The frequency is doubled, and the process is re- 
peated until the frequency equals 64. This entire process 
is repeated 20 times. 

Energy levels sets the Voice-3 frequency, sets the 
Voice-I AD/SR, enables ring modulation, and sets the 
Voice-l upper frequency to a frequency that depends on 
time T. 

Nervous sets the Voice-l frequency, sets the Voice-3 
upper frequency, enables ring modulation, and sweeps 
the Voice-3 lower frequency rapidly up and down 20 times. 

Sproing first plays a short-duration low-frequency saw- 
tooth wave. Then it sets the Үоісе-1 frequency, enables 
synchronization, and rapidly sweeps the Voice-3 upper 
frequency upward at an increasing rate, 50 times. 

Force Field sets the Voice-3 frequency, sets a slow at- 
tack, sets the Voice-1 frequency, enables ring modulation 
for about five seconds, then fades out the volume. 

Involution enables the bandpass filter, sets maximum 
resonance, turns on the triangle waveform, and repetitive- 
ly sweeps down the frequency and the bandpass center 
frequency at a gradually increasing rate. 

Aviary sweeps upward between two random frequen- 
cies 15 times, then sweeps upward rapidly (warbles) a 
random number of times. This process is repeated. 

Ghost sweeps the Voice-I frequency rapidly up and 
down, while the average frequency gradually decreases. 
This process is repeated. 

Song of Saturn turns on maximum resonance, turns 
on the bandpass filter, plays noise at a random frequen- 
cy, and sweeps the bandpass-filter center frequency from 
О to a random number. This process is repeated 10 times. 

Ketchup Squirts turns on maximum resonance, turns 
on the bandpass filter, and sweeps the bandpass filter up- 
ward at a random rate while playing a random-frequen- 
Cy sawtooth wave. 

Elf Laugh plays a sawtooth-wave tone burst followed 
by a noise burst (POKE W,128), at successively lower 
frequencies, 10 times. This forms a "laugh cycle? The 
average frequency is raised each time the laugh cycle is 
repeated (three times). 

Throb sets the Уоїсе-1 upper frequency. Then, while 
sweeping the Voice-l lower frequency down slowly, it 
plays a sawtooth-wave tone burst followed by a triangle- 
wave tone burst. O 

SEE PROGRAM LISTING ON PAGE 94 


he arrival of the С-128 at 
our offices on April 10th 
heralded Commodore's 


_leavetaking from the home 
= Î computer business. As the 
logo proclaims in no uncer- 
tain terms, the С-128 is a 
personal computer. Person- 
ality is definitely one thing 
the С-128 has plenty of. 
According to some counts 
it can be credited with no 
fewer than five. 
Many of us will be inti- 
mately familiar with one of 
its personalities, that of the 
C-64. As promised, there 
is a full-fledged C-64 hid- 
den within the confines of 
the С-128. There are three 
ways to bring out the C-64. 
For starters, simply hold 
down the Commodore logo 
key when you power up. 
the computer. This will 
automatically bring forth 
the C-64 within. If a 
C-64 cartridge is left in 
the expansion port, the 
C-64 mode will auto- 
matically be selected. 
The Epyx Fast Load 
cartridge serves admirably 


By 
Morton Kevelson 


THE KEYBOARD 
This is definitely a step in the right 
direction. The 92 keys have a nice 
feel to them. Touch typists will be 
pleased to find a raised dimple on the 
home keys (F and J). Ac- 
countants will likewise ap- 
preciate the similar treat- 
ment of the 5 key in the nu- 
meric keypad. This keypad 
should go a long way to- 
ward easing some of the te- 
dium associated with mar- 
athon spreadsheeting into 
the wee hours. We would 
have liked to hav 
parenthesis, asteri: 
slash in the keypad as well. 
However, we admit that 
these are the least likely to 
be used for most ac- 

counting applications. 

With the exception of 
f the function keys, all the 
f keys on the top row are 
new. These are not just 
for show. The ESCape 
key supports a host of 
screen editing functions. 
These include erase to 
end of screen, erase to 
end of line, erase to be- 
ginning of line, automa- 
tic insert mode, insert 


well in this respect. From 
С-128 mode you can tell the 
machine to GO 64. How- 
ever, you will have to be 
firm. The С-128 will 
promptly question this demeaning re- 
quest. Just respond in the affirmative 
and the familiar blue on blue of the 
C-64 display will blossom forth on 
your video monitor. 

A true C-64 it surely is. Commo- 
dore has gone to great lengths to in- 
sure compatibility with all existing 
C-64 software and peripherals. Even 
the nice numeric keypad located at 


Top: all 92 keys of the C-128 Main section nearly dupli- 
cates the C-64. Bottom: closeup showing numeric keypad. 
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line, delete line, scroll 
screen, set window, and 
toggle between 40/80 col- 
umn display. АП of these 


the extreme right of the keyboard (see 
photo) is disconnected in C-64 mode. 
Once in C-64 mode, the computer re- 
sists all attempts to leave it. Even 
turning it off does not always work. 
We found that it took more than a few 
seconds in the benign state for all 
feelings of C-64ishness to dissipate. 
But enough of this talk about the old. 
Let's get on with the new. 


sequences work under program con- 
trol. To use them simply PRINT 
CHRS(27), followed by the appropri- 
ate command letter. 

Incidentally, the escape character 
can be generated by holding down the 
CONTROL key and pressing the co- 
lon (:). This is true for both the C-64 
and the С-128. The results will be dif- 
ferent for the two machines. The 


С-128 is always placed into Е5Саре 
mode awaiting a command character 
for immediate execution. The C-64 
will generate a reverse-left-square- 
bracket when in quote mode. Thus, 
for the C-64 the above quence 
can be used to put an ESCape code 
into a PRINT statement. 

Some very subtle alterations are 
buried beneath the keyboard. Tum up 
the volume on your TV or monitor, 
hold down the CONTROL key, and 
press G. A pleasing bell tone will 
sound, PRINT CHR$(7) will elicit 
the same effect. This keyboard “bell” 
is a standard ASCII code from the 
carly days of tel i 
useful feature which was sorely 
missed on the VIC and C-64. 

The ALT Кеу is to access an alter- 
nate character set under program con- 
trol. The HELP key is for use imme- 
diately after a SYNTAX ERROR? 


The upper radiation shield of the 
С-128 serves as a heat sink as well. 


The offending BASIC line is dis- 
played with the part following the er- 
ror in reverse. The 40/80 DISPLAY 
key determines the screen display 
mode on power up. И has no effect 
once the computer is turned on un- 
less the reset button is pressed. 


BASIC 70 

This version of Commodore 
BASIC is definitely loaded. Gone are 
the days of POKEing and PEEKing 


to generate sounds or program sprites, 


or manipulate the color display. There 
are now specific BASIC commands 
to handle all of these chores. Includ- 
ed are a built-in sprite editor and 
music editor. The accompanying ta- 
ble summarizes all BASIC 70's en- 
hancements as compared to 2.0. 
Acoustically inclined programmers 
will be particularly pleased with the 
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ENVELOPE and SOUND com- 
mands, The former includes ten built- 
in musical instruments. The latter 
supports the creation of complex spe- 
cial effects. For musicians, the PLAY 
command accepts musical notation. 
In fact, the built-in sound commands 
have more features than some music 
editor programs we have seen. 
The programmer's aid commands 
will ease many of the more tedious 
programming tasks. The function 
keys are preprogrammed with useful 
phrases. The KEY command easily 
reprograms the function keys for even 
greater profundity. Lines can be 
AUTOmatically numbered, КЕ- 
NUMERED and DELETEd en 
masse. The proper effects are ex- 
tended to GOTOs and GOSUBs. The 
TRAP, trace (TRON, TROFF), 
RESUME, and HELP commands 
should keep rampant SYNTAX 


The main circuit board sports a neat 
and uncluttered layout. 


ERRORism under control. About the 
only significant shortcoming is the 
lack of a string FIND or SEARCH 
command in the programmer's aid 
section. 

The structured programming com- 
mands deserve special attention, in 
particular the IE. THEN ВЕСІ! 
(program lines);BEND:ELSE s 
quence. The Block-BEGIN and 
Block-END structure allows the writ- 
ing of complex routines as part of an 
IF THEN decision without the need 
of GOTO or GOSUB. This should 
definitely promote much neater and 
easier to follow program structures. 

Numerous other improvements 
abound, not the least of which is 
memory. Even the most determined 
BASIC programmer will have a tough 
time exhausting the available supply. 
The startup message proclaims a 


massive 122365 bytes free. This is 
nearly 120 kilobytes as computers 
count. There is one catch, BASIC 
memory is partitioned into two banks. 
Bank 0, which is used for the pro- 
gram storage, has 58,109 bytes avail- 
able. Bank 1 provides 64,256 bytes 
for variable storage. Note that mem- 
ory usage is restricted to these pre- 
defined applications. 

The full screen editor can accom- 
modate program lines up to 160 char- 
acters long. It links four screen lines 
when in 40 column mode and two 
screen lines in 80 column mode. This 
is certain to result in competitions for 
the longest LISTing program line 
amongst aficionados of compact code. 

Long garbage collection delays 
should also become a thing of the 
past. Try the following in both C-64 
mode and С-128 mode: 


Sixteen 64 kilobit dynamic RAM chips 
make up the 128K of main memory. 
س‎ 


10 DIM A$(255) 

20 FOR Ј=1 TO 255 
30 A$(J)= A" "B" 
40 NEXT J 

50 T-TI 

60 M=FRE(1) 

70 PRINT TI-T 


The number displayed is the time 
in jiffies (1/60 second) it took to per- 
form garbage collection. Try it in 
both C-64 and C-128 modes. For the 
C-64 it should be about six seconds. 
For the C-128 it will be about 1/6 of 
à second! 


THE DISPLAYS 

Both 40 and 80 column displays 
are built in. In 40 column mode the 
default colors are light green on a 
dark grey background with a light 
green border. For 80 column mode 
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C-64 апа 
C-128* OWNERS: 


Now YOU too can get the “Software Edge!” 


Do you know the full contents of all your Disks in your Software Library? 


Stop playing "Hide-and-Seek" with your Disk software! Let your Commodore 64™ 
“memory” do all the work for you. Easy Manual and Program Menu-Screens make 
everyone a "pro" in 1 day! 


Here's a small "PEEK" at SOME of the FULLY-INTEGRATED POWER of 
PRODUCTIVITY at your fingertips. . . 


MASTERDISK®: 

* a SORTED Master Catalog of ALL your Disks 
(even those un-listable "protected" Directories: 
Names, ID's, File info, etc.) 

Search * List any File/Disk/ID in seconds, auto- 
matically, in any of SEVEN WAYS. 

Transfer ML-Programs or Files from Disk to 
Disk (CATEGORIZE your software) 

Stop disaster before it strikes: change dupli- 
cate ID's fast, without total re-copy. 

Restore accidentally-scratched files in a flash, 
with VERIFICATION that they're OK 

Works with 1 or 2 Single Disk Drives (1541, 
MSD, etc.) with or without Printer (Commodore 
or ASCII) 

Handy-Reference Card for HEX/ASCII/ 
BINARY-TO-DECIMAL VALUE TRANSLA- 
TION * FORMULAS, included FREE 


NEW!! - MASTERDUAL®, 
"Son of MASTERDISK®"... 
same power, but with 
Dual Drive Speed! 


Same Catalog Features as MASTERDISK* 
Same Disk repair functions, too 

For all C-64 & C-128* systems with Dual Disk 
Drives (4040, MSD, etc.) 

Utilizes all Dual Drive functions for maximum 
speed and ease of use 

FREE Handy Reference Card for HEX/ASCII/ 
Binary to Decimal Translation * Formulas 
Experience FULLY-INTEGRATED POWER for 
just $29.95 (U.S.A.), $39.95 (Canada) 


* All this + MUCH MORE, for just $34.95. (U.S.A.), $45.95 (Canada) 


*MASTERDISK® and MASTERDUAL* are also compatible with the NEW С-128 (іп C-64 Mode)! 


Don't MESS with anything LESS! 


OUR CUSTOMERS WRITE: 


Been meaning to write and let you know how much I've enjoyed it 
So, let me say that MASTERDISK is EXCELLENT." — Middletown, NY 


just the thing І need. 


— APO, NY (Germany) 


‘Hope to get my [MASTERDISK] yesterday." — Maple Grove, MN 


1 am impressed with your product and would like to be able to endorse it for ТРОС." — Ontario, Canada 


nothing else even comes close!" — Burlington, IA 


We ship within 24 hour: 


INTEGRATED-SOFTWARE SYSTEMS 
Р.О. Box 1801, Ames, ІА 50010 
VISA/M.C./C.O.D., CALL (515) 233-2992 
9 am - 9 pm (Central Time) Mon.-Fri. 

Add $3 Shipping/plus $2 Foreign, C.O.D. 

ТА Residents add 4% Sales Tax. 


Send Money Order or Check to: 


IN CANADA: Cricket Distribution Co., 
Р.О. Box 953, Cobourg, Ontario, Canada КЭА 4W4 
VISA/M.C./C.O.D.. CALL (416) 372-3692 


9 am - 6 pm (Eastern Time) Mon.-Fri. 
Add $3 Shipping /plus $2 C.O.D. 
Ontario Residents add 7% Sales Tax 


Whether you have tens or hundreds of disks, now YOU can be the MASTER 


of your TOTAL Softwai 
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you will need a high resolution RGB 
monitor for best results. In a pinch 
the 1702 monitor front connection 
could be used (see sidebar on this 
page). The results were far from ideal, 
without color, but better than the soft 
80 column displays we have seen on 
the C-64. We did discover that the 
character matrix in 80 column mode 
is only six pixels wide. Traditional 
Commodore characters are all eight 
pixels wide. 

Both displays remain active at all 
times. There is even a dedicated two 
kilobyte static RAM chip on board 
for the 80 column display. Thus you 
can write messages on the 40 column 
screen while working on the 80 col- 
umn display. Of course two monitors 
are required for maximum benefit. 
Since the display mode is switchable 
under program control, this could be- 
come an added bonus for many appli- 


cations. Note that only the 40 column 
mode is supported by the BASIC 70 
graphic commands. According to 
Commodore's Jim Gracely, the С-128 
will have some bit map capability in 
80 column mode. The horizontal res- 
olution will be a full 620 pixels. 
The 80 column display has sever- 
al features not available in the 40 col- 
umn mode. Onscreen underlining can 
be turned on with a CONTROL B 
(CHRS(2) ) and turned off with a 
CHR$(130). The underline feature 
also "eats" the pixel which displays 
the lower case descenders of the 
screen characters. Characters can be 
set to flash at the cursor blink rate 
with a CONTROL О (CHRS(I5) ). 
A CHRS$(143) turns flash off. Al- 
though neither а CHR$(130) nor a 
CHR$(143) can be generated direct- 
ly from the keyboard, both flash and 
underline will be turned off by a car- 


паре return. 

Commodore plans to market two 
monitors for the С-128. The 1901 will 
be a monochrome monitor suitable 
for either 40 or 80 column work. The 
1902 will be a dual purpose monitor 
with both RGBI and composite vid- 
ео inputs. A switch on the front pan- 
el will select its operating mode. This 
will allow both С-128 displays to Бе 
easily accessed by a single monitor. 
All that is lacking is the ability for 
the С-128 to switch the monitor's 
mode under program control. If you 
are buying a non-Commodore moni- 
tor, bear in mind the intensity re- 
quirement of the RGBI input. Some 
digital type monitors lack this ana- 
log capability. These may not be suit- 
able for the С-128. The СВІ port on 
the C-128 is similar to that on the 
IBM PC. Thus monitors which work 
with that machine should work with 


Displaying 80 Columns with the C-128 and 1702 Monitor 


Although a high resolution color mon- 
itor with RGBI (red, green, blue, and in- 
tensity) inputs is needed for the best re- 
sults, it is possible to get a usable 80 col- 
‘umn display with the C-128 and Commo- 
dore's 1702 color monitor. This will allow 
the use of 80 columns, with a minimum 
of investment, while waiting for Commo- 
dore to distribute the new 1902 color 
monitors. 

AII that is needed is a suitable adapter 
cable. The 80 column video port 
C-128 uses a readily available 9 ри 
type connector. This is the same type of 
connector used for the joystick ports оп 
the VIC 20, C-64, and C-128. It is avail- 
able as Radio Shack catalog number 276- 
1537 for $1.99. If you use this connector 
you will have to be able to solder on a 
length of shielded coaxial cable. Audio 
type cable works fine for the short length 
which is needed. The other end of the 
cable will be terminated with a standard 
RCA type audio plug. 

Soldering can be avoided by using a 
joystick port extender cable. These are 
available for under $10.00 at most stores 
which sell joysticks and other video game 
accessories, Just cut the cable in two, 
making sure that a sufficient length of 
wire remains attached to the “male” con- 
песіог end of the cable. That is the one 
with the pins. The "female" end has the 
sockets for the pins. (We are not certain 
how this chauvinistic terminology came 
about but we understand that it dates back 
to the early days of radio and electron- 
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ics.) The cut end of the cable can then 
be terminated with a "solderless" RCA 
type phono plug available as Radio Shack. 
catalog number 274-383 (4/$1.29). 

If you do use the second approach keep. 
in mind that the joystick extender cable 
is not shielded and may cause interfer- 
ence with any televisions or radios in the 
vicinity. Check with your family and 
neighbors if this is a possible concern. 
‘You will also need access to an ohmeter 
or other continuity checker to determine 
which of the nine wires in the cable go 
10 the proper pins. Also be sure to insu- 
late the seven unused wires to prevent any 
electrical shorts. 

Only two wires have to be connected. 
One of these is the ground connection 
available on both pins 1 and 2 of the “D” 
connector. Either one will do. This wire 
should be connected to the shield or outer 
part of the RCA plug. The second con- 
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tains the intensity portion of the video 
signal. This is available on pin 7 of the 
“D” connector. This wire should be con- 
nected to the center pin of the RCA plug. 
The pins are easy to identify as the con- 
nectors have the pin numbers molded into 
the plastic. The accompanying drawing 
shows the pinout of the 80 column port 
while looking at the C-128 from the back. 

To complete the hookup you may want 
to insert a "Y" audio adapter cable into 
the audio line at the back of the monitor. 
This will make available the sound por- 
tion of the signal from the 40 column port 
to both the front and back connectors. 
This will not be needed if you normally 
use the front connection on the 1702 mon- 
itor. Just leave the audio plug where it 
normally is. If you are using the back 
connection for 40 column display (the 
best arrangement) then the selector 
switch on the back panel of the 1702 can 


Pinout of 80 column video 
port as seen from rear of 
the C128. Pin 1 or 2 is шей 
for ground connection. pin 
2 for the Intensity portion 
of the video signal. 
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Left: empty 28 pin socket between 16K ROM and 6526 CIA chip. 48K of ROM can be seen here. Center: dual 


video display sections allow simultaneous 40 and 80 column display 


tw 


Righi joystick port 


the C-128 as well. 
THE HARDWARE 


As with all recent Commodore 
computers, the C-128 comes in two 
parts, a power supply module and a 
keyboard/CPU. The power supply is 
massive, with more than twice the 
volume of the C-64 power supply. It 
also has a replaceable fuse and a 


be used to switch between the 40 and 80 
column displays. Of course computer 
output will still have to be directed as 
required. 

To finish off, adjust the brightness and 
contrast controls on the monitor front 
panel for best results, We found that they 
had to be turned down quite a bit to obtain 
a usable image. Color in 80 columns will 
not be available with this connection. 
However, the flash and underline features. 
will work. 

We haven't tried this with а 1701 mon- 
itor but we see no reason for it not to 
work with that device as well. 

Ап even sharper picture will result if 
the 80 column screen is reversed to a 
white background by an ESCape R com- 
mand sequence. 


80 COLUMN RGBI 
PORT PINOUT 

Description 
Ground 
Ground 
Red signal 
Green signal 
Blue signal 
Not used 
Intensity signal 
Horizontal drive 
Vertical drive 


= 
5 
ж 


1 

2 
3 
4 
5 
6 
2 
в 
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screw-together case. Unlike the C-64, 
this power supply can be repaired. 
We don't know what Commodore has 
in mind, but with just the C-128 оп- 
line the power supply barely got 
warm. We do hope that Commodore 
will continue to supply this open con- 
Struction, as opposed to the potted 
design currently in use for the C-64. 

Inside the computer, the main cir- 
cuit board is fully shielded. The up- 
per shield also s а heat sink 
for the large scale integrated ci 


Left: 8502 microprocessor for 64 
and 128 mode; right: 2-80 for СР/М. 


A series of springlike "fingers? 
stamped in the sheet metal, reach 
down and touch the chips in the ap- 
propriate spot. A dab of thermally 
conductive silicon compound ensures 
good heat transfer, We found no sig- 
nificant hot spots after extended pe- 
riods of operation. 

A minimum of 48 kilobytes of 
ROM make up the C-128 operating 
system and BASIC. Keep in mind that 
16 kilobytes are actually the original 
C-64 BASIC and Kernal. This still 
leaves twice that amount for the en- 
hanced features of the C-128. In the 
midst of the ROM cluster we found 
an empty 28 pin socket. This opens 
the possibility of future ROM expan- 


sion, perhaps some built-in applica- 
tion software. 

The accompanying photographs 
tell the entire story. 


EXPANSION RAM 

Commodore plans to make up to 
512 kilobytes of expansion RAM 
available for the 128. It has not been 
decided as of this time whether this 
will be available only as a RAM disk 
option or as bank-switched RAM. 
The present thinking is some kind of 


Clockwise from top: cart port, power 
connector, on/off switch, reset button. 


combination of the two. Details will 
follow when available. 


WHAT'S NEXT? 

We still haven't touched on the 
built-in CP/M* capability. According 
to the accompanying manual, the 
CP/M 30 Plus operating system will 
be able to access all of the C-128 col- 
or and sound capab 
both the 40 and 80 column displays. 
When using the 40 column display 
the screen becomes a horizontally 
scrolling window on an 80 column 
line. Although not ideal, this does 
present a workable compromise to al- 
low the use of 80 column CP/M soft- 
ware with a 40 column display. The 
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Top, 110 г: RGBI connector, RF modu- 
lator, composite video and serial ports. 


ENSE. 
Power supply: transformer (left), rec- 
tifier, and voltage regulator boards. 


Ап 80-column display using the 1702 
color monitor (see sidebar, p. 32). 


Closeup of 80 column display on 1702. 


CP/M system disk and a utility disk 
will be supplied with the computer. 
Two more CP/M utility disks will be 
supplied with the 1571 disk drive. 
As of this writing we are still wait- 
ing for the CP/M system disk, re- 
quired (along with the 1571 disk 
drive) to book CP/M on the C-I28. 
Interestingly enough, of all the C-64 
accessories we tried, only the orig- 
inal C-64 CP/M cartridge would not 
work. Of course this can be con- 


BASIC 7.0 EXTENSIONS 
TO BASIC 2.0 


The following commands are 
included in BASIC 70 in addition 
to all of the BASIC 2.0 commands. 


Programmer's Aid 


AUTO [increment] — automatic line num- 


E [line#][=line#] 
cified line or range of BASIC lines (dí 
node only) 


HELP- displays line with BASIC pro 
gram error 

KEY [key#,string|—assigns string to 
specified function key 


language me 
RENUMBER [new starting line# | 
crement{ old starting line£]]] - renumber 
BASIC program (direct mode only) 
RESUME  [line£/NEXT] - continues 
program after TRAPping an error 
TRAP [line#]—intercepts BASIC pro 
gram errors, branches to specified lined 
TRON trace. mode, displays line# of 
currently executing BASIC statement 
TROFF- turns off trace mode 


DOS Support 


The disk drive command channel (sec- 
ondary address 15) is automatically 
OPENed by these commands as required. 


APPENDAIf, тате, ОХ Udv/] 
‘opens the specified file for writing 
sequent data to end of file 
Ddr# TO Ddr# [,ON Udv/] 
— duplicate command for dual drives. 
BLOAD "fname"[ON][,Bbank4] 
[,Pstart addr] — performs а binary load 
10 the specified bank and address 
BOOT "fname"[, DdrA][,Udv/] —loads 
a binary file and executes at the start ad 
dress 
BSAVE "fname"[,Bbank/] [,Pstart 
addr][TO Pend addr]— saves a binary 
file 
CATALOG —see DIRECTORY 
COLLECT [DdrZ][.ON UdvZ]— same 
С 20% VALIDATI 
AT [Ddr£,source file” 1 
[Ddr/]"dest. file” [ON Udv4] -merges 


two files 


strued as true compatibility, as we 
know of many С-645 which will not 
work with the cartridge. O 


COPY [DdrA] “source file" ТО 
[Ddr#,] "dest. file" [ON Udv#] 
as BASIC 20 

DCLEAR Ddr/[ON Udv/] = clears all 
open channels 

DCLOSE[AIILON U dv] ~ closes all or 
a single disk file 

DIRECTORY [Ddr/][,Udv/] [;file- 
name"]- displays disk directory without 
affecting current program 

DLOAD "name"[,Ddr/][,Udv/] - 
LOADS from disk 

DOPEN/If *fname"[, Ly] [Ddr] ON 
Udv/][W]- opens a sequential (relative 
if L is present) file for read or write 
DSAVE “name"[,Ddr#][ Udv#] - SAVEs 


same 


T,Ddr/] [,Udv/] 
ies а disk file 


against memory 
HEADER "name"[id/], Ddr/[,ON 
Udv#]—formats a disk; BASIC 20% 
NEW command 

RECORD/AIf, гес, Букей] = adjust rela- 
tive file pointers 

RE 


АМЕ [, DdrZ]*old name" TO “new 
ames a disk file 

RUN "fname"[,DdrZ][Udv/] - LOADS 

and RUNS the specified file 

SCRATCH “file name” [, Ddr/] [,Udv#] 

-erases a disk file 


Notes for DOS commands 
dr# = drive number, i.c, 0 or 1 
dv# = device number, i.e. 8 or 9 
id# = two character disk ID 
If = logical file number 


Structured Programming 


BEGIN/BEND — defines a block of code 
for use after THEN and ELSE 

DO [UNTIL bool arg WHILE bool 
arg] program statements [EXIT] 
LOOP [UNTIL bool arg WHILE bool 
arg] 

IF bool arg THEN statement [:ELSE 
statement] 

bool arg = logical expression which is 
either true or false (=1 or 0) 


Enhanced User Interface 
BANK-selects 64K RAM bank for 


*CP/M is a registered trademark of Digi- 


tal Research Corporation. 
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PEEK and РОКЕ 
GETKEY- same as 0 GET AS:IF AS= 
“THEN СОТОЮ 

G064—switches 10 Commodore 64 
mode 

PRINT[/lfn] USING format list;print. 
list; — formatted PRINT statement 
PUDEF“I to 4 characters" redefines 
PRINT USING symbols 

RREG [a var]f,[x var][,Ly var]{,s уағ 
—assigns microprocessor register values 
to specified variables on return from a 
SYS call 

SLEEP N—delays program for N sec- 
onds 


Graphics Commands. 


BOX [ess] xlyllx2,2] [angle] 
[,paint]] - draws a re 
CHAR [e-s#],col,row[ text][ rvs-flag] = 
displays text on both the text and the 
graphic screens; equivalent to PRINT AT 
CIRCLE [css4] [cse] xr] уг][ аја] 
Langle]line]IIII draws a circle 
COLLISION type[,lineZ] — defines 
handling of sprite/background/light pen 
collision interrupt 

COLOR e-s#,color#,—assigns colors to 
one of the seven color sources 

DRAW e-sf[,xtyl[TOx2,92...]] - draws. 
dots, lines, and shapes 

GRAPHIC model clear[,sJ/CLR-—allo- 
cates or deallocates a ten kilobyte graph- 
ic area for bit mapped graphic mode: 
lects between 40 and 80 column text; 
is first line of text for split screen 
LOCATE xy — places the pixel cursor on 
the screen. 

MOVSPR #,х у — moves or locates sprite 
# specifies sprite number; x and y can 
be absolute or relative positions or an- 
gle and speed 

PAINT. [c-s/]f, [xy ]f,fill mode] — fills. 
an area with color 

SCALE [1/0][,xmax ymax] = scales 
drawing coordinates as specified; defaults 
0 to 1023 

SCNCLR ~ clears the current screen 
SPRCOLOR- sets multicolor | and 2 
for all sprites 

SPRDEF- calls built-in sprite editor 
SPRITE 4f, [o/off]f,[fend]f, [priority] 
Thor. exp.][,[vert. exp][,mode]}}]] = sets 
various sprite attributes 

SPRSAV- saves а sprite image 
SSHAPE string-variable;xlyl[ x22] 
—saves a rectangular graphics screen as 
а string 

GSHAPE string-variable[ [a,b], put- 
mode] — displays a saved shape 
WIDTH = sets width of drawn lines in 
graphic mode 


s 


Notes for graphics commands 


5# = color source number 

40 column background 

graphic foreground 

graphic multicolor 1 

= graphic multicolor 2 

40 column border 

character color (40 or 80 column) 
= 80 column background 

mode = graphic display mode 

0 = 40 column normal text screen 

1 = high-resolution graphics screen 

2 = high-resolution graphics, split screen 
3 = multicolor graphics screen 

4 = multicolor graphics, split screen 

80 column text screen 


сч 
0 
1 
2 
3 
4 
6 


сөй = text column (0-79) (wraps in 40. 
column mode) 

row = text row (0-24) 

xr, yr = radii for circle 

sa = start angle 

са = end angle 


Sound and Music Commands 


ENVELOPE n,[atk]f[dec]f,[sus][,[rel] 
Амру] TII -defines musical in- 
strument envelope; ten musical instru- 
ments (piano, accordion, calliope, drum, 
flute, guitar, harpsichord, organ, trum- 
pet, xylophone) are predefined; all may 
be modified 

nvelope (instrument) number (0-9) 
k rate (0-15) 

dec = decay rate (0-15) 

sustain (0-15) 

release (0-15) 

vaveform: 


ring modulation 
pw = pulse width (0-4095) 


FILTER [NL Np] [bp] [hpi ires] 
defines sound filter parameters 


f = cut of frequency (0-2047) 


Tags: 0 = off: 
Ip = low pass 
bp = band pass 
hp = high pass 


res = resonance (0-15) 


PLAY "VnOn;Tn,Un,Xn,notes/ele- 
ments" where VN = Voice ( 
On = Octave (п-1-6) 

Та = Instrument envelope (п-0-9) 
Un = Volume (п-0-15) 

Ха = Filter on/off 

Notes: A,B,C,D,E,FG 


5 flat. 

W whole note 

H half note 

Q quarter note 

T eighth note 

8 sixteenth note 

dotted note 

R rest 

M wait for all voices to end 


SOUND y,f,d[,dr[,m[,s{.wfl,pwI]]] — 
creates and outputs sound effects 


v = voice (1-3) 

f = frequency (0-65535) 

d = duration in sixtieths of a sec- 
ond 


dr = frequency sweep direction 


0 
1 
2 = oscillate (up, down) 
m = sweep minimum frequency 
(0-65535) 
8 = sweep step value (0-32767) 
wf = waveform (see ENVELOPE) 
pw = pulse width 
TEMPO -define note duration 


VOL - set sound level or volume 


Reserved Variables 


DS reads current drive status from disk 
error channel 

DSS — reads current drive error message 
ЕВ last program error after a RUN 
EL line number for ER 


Functions 


BUMP (n) = returns sprite collision in- 
formation 

DEC(hexadecimal string) – converts 
hexadecimal to decimal 
ERRS(n) — returns program error mes- 


sage 
FRE (n)—number of available bytes in 
specified bank 

HEXS(n)—converts decimal to hexadec- 
imal 

INSTRétringl string2[start-position] 
— finds position of string 2 inside stringl 
JOY (n)— returns position of the joystick 
PEN (n)—returns coordinates of light 


pen 
РОТ (n)—returns paddle setting 
RCLR(n) = returns color assignment 


"RDOT(n) — returns current position of 


the pixel cursor 
RGR(X) — returns current graphic mode 
RSPCOLOR (reg) – checks sprite multi- 
color values last set 

RSPPOS — checks speed and position of 
sprite. 

RSPRITE — returns sprite attributes 
RWINDOW-returns current screen 


WINDOW- defines a screen window on Elements: window parameters 
the text screen # sharp XOR- exclusive or function 
NE Morton Kevelson continues his series on the Commodore 128 and its peripherals with a text 


XT 
MONTH: 


and photo treatment of the 1571 disk drive, including information on specifications, compatibility, 
internal workings, and DOS 3.0; plus, an illuminating look at (and under) the C-128 keyboard. 


‘tp://www.oldgamesitalia.ne’ 


AHOY! 35 


ere is a neat program that will enable you 
to add a window to your programs to give 
them a professional touch. This window, a 
rectangular portion of the screen framed with 
à solid border and containing any message you wish, can 
be placed anywhere on the screen and will appear to over- 
lay what was on the screen when an "open window" com- 
mand is issued. The contained in the window 
can either be selected before the window is opened ог 
the output from the keyboard can be sent directly to the 
window. When a "close window" command is issued the 
window will be restored to its original condition. Since 
the program is written in machine language these changes 
occur instantaneously. Some of the uses for this feature 
include menus, help screens, and warning messages, as 
well as the ability to save or move sections of the screen. 
There are separate programs for the VIC and 64. Both 
consist of a machine program in the form of 
data statements and а BASIC loader to put the program 
into the computer's memory. The 64 version loads into 
а 1230 byte block starting at memory location 49408. 
The VIC version loads into the top 418 bytes of the BASIC 
programming area with the cassette buffer and 95 bytes 
ing at memory location 673 used for temporary data 


storage. 


PROGRAM DESCRIPTION 

The program uses three window commands to activate. 
the program and five variables which tell the program 
the size, location, and contents of the window, 

Тһе "open window" command first saves the character 
and color information in the area of the screen where 
the window is to be placed. This information is stored 
in a file contained within the window program. A win- 
dow containing the desired message is then printed to. 
the screen. 

А "write window" command does the same thing, ex- 
cept it does not save the information on the screen, thus 
any information the program has previously stored in its 
file remains undisturbed. This command is used to change 
the contents of a window already on the screen. 

А “close window" command replaces the window with 
the character and color information that was saved when. 
the window was opened. This will restore the screen to 
its original condition. 

Neither of these last two commands will disturb the 
screen information previously saved by an "open win- 
dow" command, 

Five variables are used by the program for window 
parameters, as follows: 

WS —window message 
W%—window width 
H% —window height 
R% —row number 
C% —column number 


The first variable, WS, is the message the program will 
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put into the window. If the string is not long enough to 
completely fill the window, spaces will be used after the 
string is exhausted. If WS is undefined, the program will 
fill the window with garbage. 

The next two variables, the width and height, can have 
any values that will not exceed the screen size, with one 
limitation: the product of the width times the height can- 
not exceed 95 for the VIC or 255 for the 64. 

The last two variables set the position of the window 
on the screen, The row number, from the 
and the column number, counting from the left, 

the location of the upper left corner of the window (start 
counting with 0). Any values can be used that will not 
cause the window to run off the right side or bottom of 
the screen. 

Any time a window command is issued the program 
first checks to insure that the values assigned to the vari- 
ables meet the conditions outlined above. The program 
will abort and return to BASIC if an error is found. 
The use of variables to provide instructions for the win- 
dow program eliminates the need to POKE numbers into 
memory. They are created the same as any other vari- 
able used in your program and are stored in the same 
place. Every time the window program is activated the 
program will find the current values of the variables. 
If you change the value of R% or C% before you issue 
a “close window" command, you will replace the screen 
section in a different spot on the screen, a feature that. 
allows you to move a block of information from one part 
of the screen to another. If you change W% or H% before 
you issue a “close window" command, you will usually 
end up with a scrambled version of the screen. 
Regardless, as long as the window size and vari- | 
ables are changed back to the values they had when the 
window was "opened? a "close window" command will | 
restore the information in the window area exactly as it 
was originally. Of course, if you have cleared the screen | 
or allowed it to scroll in the meantime, the remainder 
of the screen will no longer match. 


LOADING THE PROGRAM 
After you have typed in the program, enter RUN (be 


oe 


10) 1) ) ұша 


sure you have saved the program first) and a machine 
language program will be loaded into the computer's 
memory; the BASIC portion of the program will be de- 
stroyed and the commands you need to activate the win- 
dow commands will be printed on the screen. For a 64 
you will see: 


Open window —SYS 49432 
Write window —SYS 49436 
Close window—SYS 49440 


If you're using a VIC 20, different numbers will be dis- 


The procedure described above is the normal method 
for using the window program and uses the least amount 
of memory, It does have the disadvantage of requiring 
you to first load and run the window program, then load 
and run your program every time you want to use the 
window feature. If you have about 2K of RAM to spare 
you can avoid this two-step loading procedure as follows: 
load the window but do not run it. Delete lines 
6, 7, and 8 and proceed to write or append your program 
after the end of the window program, You will have to 
Start your program line numbering with 35 or higher, 
but the window program including data statements will 
be an integral part of your program and will load and 
save with it. When you run the combined program the 
machine language program contained in the data state- 
ments will be loaded into memory, but the window com- 
mands will not be printed on the screen. You will not 
need to be concerned with the actual value of these mem- 
ory locations, as you can make use of the variables that 
are defined in line 5 as follows: 


Open window -SYS OW 
Write window —SYS WW 
Close window—SYS CW 


WINDOW MESSAGES 

When you compose a message to be put into a win- 
dow there are several restrictions you should be aware 
of, Only letters or symbols can be used—no special func- 


tion keys such as CRSR or CTRL keys, Because of the 
limited ASCII to screen code conversion routine, any time 
you press any key (except those on the top row of the 
keyboard) while holding down the SHIFT key you will 
get the character you expect, but it will be in reverse mode 
when printed in the window. The result will be a reverse 
mode upper case letter when in the text mode or a ге- 
verse mode graphics symbol when in the graphics mode. 

Writing a string for use in a window can be a little 
tricky at first. After allowing for the border the usable 
width of a window is two less than the specified width. 
You could add spaces to pad out a line to achieve the 
desired format, but there is an easier way. The program 
has a feature to avoid the need for counting spaces. When- 
ever you want to start a new line in the window insert 
a £ in the string. The £ itself will not appear, but func- 
tions much as a RETURN key does when writing on 
the whole screen. The following character will appear 
at the left side of the window on the next line down. 

You cannot change the character color within a window. 
If you want the window and its contents to be a different 
color, change color before opening a window and change. 
back afterwards. 


USING THE PROGRAMS 

After you have loaded and run the program and ob- 
tained the screen display listing the window commands, 
try the following to become familiar with the operation 
of the program. In the examples that follow the num- 
bers that follow the SYS commands are for a 64. A VIC 
will require substitution of the numbers printed on the 
screen when the program is гип, Enter in direct mode: 
WA-8: Н4-9: RZ=): C%=12: W$="HELLO": SYS 
49432 


This should print a window 8 spaces wide by 9 spaces 
high containing the word HELLO, The left corner will 
be in the top row and moved 12 spaces from the left side 
of the screen, Now enter the close window command; 


5Ү549440 


and the window will disappear. Let's move the window 
lower on the screen by entering: 


R%=12: SYS49432 


The window will now be near the bottom of the screen. 
Try changing one or more of the window parameters and 
issuing a window command to see what effect this has 
on the window, If you enter a command and nothing hap- 
pens, check that you have not tried to use a window size 
that is too large or located the window where it would 
run off the screen. 

Writing directly to the window will require a few lines 
of BASIC. The following will do the job. 


1000 SYS49436: REM WRITE WINDOW COMMAND 
JESZ 


1010 GETX$: ІЕХӛ-""ТНЕУ1010 

1020 IFX$=CHR$(13)THENRETURN: REM CHECK 

FOR RETURN KEY 

1030 IFX$-CHR$(20)THENW$-LEFT$(W$ , LEN(WS 
)-1: GOTOl000:REM CHECK FOR INST/DEL KEY 
1040 IFX$=CHR$(147)THENW$="": 60701000: 

REM CHECK FOR SHIFT CLR/HOME KEY 

1050 W$=W$+X$: 60101000 


This is written as a subroutine and can either be called 
from within a program or by direct command. To try 
this in direct mode, open a window anywhere on the 
screen and enter; 


605081000 


Any key you press should now show up in the window. 
The keys to clear the screen and delete characters work 
within the window just as they normally do on the whole 
screen, The RETURN key will terminate the subroutine 
and return control to the calling program. There is по 
cursor and the rules for writing to the window are the 
same as described above for writing window messages, 
i.e., SHIFTed letters will be in reverse mode, press £ key 
to jump to next line, and special function keys are taboo. 

After you press RETURN to terminate the subroutine, 
the contents of the window are in the form of WS and 
can be saved for later use by setting some other vari- 
ables equal to WS. 


MISCELLANEOUS 

The give variables used in the window program can- 
not also be used in your program. If there is a conflict, 
you have the option of changing either the variables in 
your program or in the window program, Before you con- 
clude there is a problem, remember that the same letter 
can be used three times, once for each variable type. Thus 
WS, W%, and W represent three separate and distinct 
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variables to the Commodore system. 

The window program is designed to make changing 
the variable identifiers relatively easy. The first number 
in the data statements is 87, which is the ASCII code for 
W in WS. The next four numbers consist of 128 added 
to the ASCII code for the letter identifiers in W%, H%, 
R%, and C% respectively. You can use any letter you 
want, but you cannot change the variable type and are 
restricted to single letter variables. 

Both programs are relocatable and can be loaded any- 
where in memory. For the 64, the variable ML in line 
1 sets the point in memory where the program will start 
loading. If you want the program#® load someplace else 
just set ML to the desired value before you run the pro- 


gram. 

Changing the location of the program in the VIC is 
a little more involved. Delete line 1, 2, and 3 and sub- 
stitute the following: 


1 ML=XXXX: HB=INT(ML/256): LB=(ML/256-HB 
)*256 


where XXXX represents the memory location where you 
want the program loaded. Only the 418 byte program will 
be moved. The areas the program uses for data storage 
will remain where they were. 

You can achieve some unusual effects by putting the 
window parameters in a loop. One example of this is the. 
multiple windows that appear when you run the window 
program. You can use the program to print overlapping. 
windows like those often used in software advertisements, 
but you can only "close" and restore the screen for the 
last window opened. O 

Important: in order to fit the DATA statements for the 
64 version on two lines each, you'll have to omit the space 
between the line number and the word DATA, and use. 
the abbreviation for DATA: D [shift A]. 

SEE PROGRAM LISTINGS ON PAGE 97 
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FIDGITS 


A Learning Game for the C-64 
By Walter E. Meyers 


f you have a preschooler learning the alphabet, 
ог a child or seven or eight who loves computer 
games but has far more trouble with the keyboard 
than with a joystick, introduce him or her to 

Fidgits, creatures who both teach the alphabet (if needed) 
and show the player where the keys are on the keyboard. 
In the game, each of twenty-six fidgits wears a sweater 
with a letter of the alphabet. A randomly chosen fidgit 
opens its mouth and sings a note that continues to play 
until the corresponding key is pressed. Then another fid- 
git sings, and so on. After ten have sung, a new screen 
rewards the player with a “TEN RIGHT!” message, and 
asks if he or she wants to play again. 

The program Fidgits uses a custom font with redesigned 
characters, some for graphics, and some for another pur- 
pose: no matter how sharp the television screen, some 
color combinations cause smearing of the standard font. 
Most of the Fidgits characters are used to form letters 
large and wide enough to allow easy readability with a 
variety of colors. The game also includes a number of 
useful graphics techniques adaptable to your own pro- 
grams. 

Near the beginning of the program, line 10 does some- 
thing that may seem pointless: it reads the first 129 data 
items and does nothing with them. The reason for the 
strange command 


FOR 1=1 TO 129:READ A$:NEXT 


is this: these first data items contain the frequencies of 
the musical notes for the “ABC” song heard while the 
playfield is being drawn. The song may be repeated any 
number of times, and therefore its data has to be at the 
beginning of the data listing so that the note values are 
right there at the head of the line after a RESTORE com- 
mand resets the DATA pointer. 

Then the program goes to the listing of strings begin- 
ning at line 1000. When it returns to line 100, it sets up 
a title page with sound and animation. One subroutine 
here is worth comment: lines 110 through 130 set varia- | 
bles for screen line (LN) and column (COL), then | 
GOSUB to line 50: | 


POKE 781,LN: POKE 782,COL: POKE 783,0: 


SYS 65520 | 


Line 50 calls up a machine language routine in the kernal | 
jump table that sets the cursor to the screen position spe- 

cified. On return from the GOSUB, the program meets | 
a PRINT statement, and the string is printed where de- | 
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sired, without a lot of cursor ups or downs. (For a de- 
tailed description of the subroutine, see Sheldon Leemon's 
Mapping the Commodore 64, pp. 7071). 

The next two blocks of lines, 300 to 470, first print 
the instructions for the game; while the ins ions are 
on the screen, many things are happening. First, line 400 
POKEs a machine language subroutine into memory 
starting at 49152. This subroutine, when called, copies 
the character set from ROM at 53248 into RAM. The 
ML routine locates character memory at the 2K block 
beginning at 14336, but the routine can be modified to 
icler memory wherever you want. Here's how 
to do it: “4336 is the number $3800 in hexadecimal no- 
tation. The ML routine POKEs this number into two 
zero-page locations, the left half 738 into 254, and the 
right half—00— into 253. These two locations together 
point to the place м the character set will be cop- 
ied. Hexadecimal “38 equals decimal 56, and the num- 
ber '56' is found in line 3010 in the data statements, the 
fourth item in the line. 

То put character memory at any other 2K block, con- 
vert the location to hex: for example, *12288' is $3000. 
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Three Exciting Products in One: 


* Speech Synthesizer — Your Computer can talk to you in 
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* Word Recognition — Make your computer respond to 
your spoken commands. 
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Then take the left half of this number (“30 in this case) 
and change it back to decimal. $30 equals decimal 48. 
Substitute 48 for ‘56’ in line 3010, and the character set 
will be copied beginning at 12288. 

While the player has been reading the instructions, the 
character set has been copied into RAM. Lines 430 to 
440 modify the character set by reading the data table 
beginning at line 3100, and POKEing the necessary num- 
bers into the new character memory block. 

For example: in its turn, line 3185 is reached by the 
program. First, the program reads “А185. The C-64 of- 
fers 256 characters in its character set, and a sequence 
of eight numbers specifies the form of the letter or num- 
ber or graphics symbol. Since the character set has been 


| copied into RAM, the program can modify the forms 


of the symbols. Line 3185 gives the information to mod- 
ify the one hundred and eighty-fifth character. To find 
that character, the program follows the instructions of 
line 440: it multiplies 185 by 8 (the number of bytes in 
each character) and adds that total—1480—to the start- 
ing location, 14336. Then it POKEs the next eight num- 
bers into the eight locations starting with 15816. This mod- 
ifying continues, and when line 450 prints the prompt, 
it's all done. 

The appearance of the instructions hasn't changed be- 
cause the 64 is still using the character set in ROM: the 
custom font will not appear until the program tells the 
64 where to look for the new character information, Lo- 


| cation 53272 is the memory control register of the 64's 


graphics chip, and the 14 in line 470- 
POKE 53272, (PEEK(53272) AND 240) OR 14 


sets bits 1-3 in that location to point to the 2K block be- 
ginning at 14336. If you copy the character set to a dif- 
ferent block, to the one beginning at 12288 for example, 
then the instruction to point to the correct block would 
read 


POKE 53272, (PEEK(53272) AND 240) OR 12 


One final point about the program: line 598, just be- 
fore the main loop, disables the STOP key and the STOP/ 
RESTORE combination. Because the game will be played 
by children who don't know the alphabet, we want to 


| make sure that a hesitant finger doesn't stop the program. 


For the same reason, lines 630-650 set up a key trap: 
the GET in line 630 waits for a key to be pressed. Line 
640 converts whichever key is pressed to its ASCII num- 
ber. Since we have disabled the STOP and STOP/ 
RESTORE keys, we need to check here to see if the play- 
er wants to quit. Function key #1 has been reassigned 
as the STOP key: its ASCII number is 133, and if func- 
tion 1 has been pressed, line 640 sends the program to 
the ending routine. Line 650 next ignores the key that 
is not a letter of the alphabet. The child may hit STOP, 
RETURN, SPACE, a cursor key, a number, CLEAR, or 
anything but a letter without hampering the program. O 

SEE PROGRAM LISTING ON PAGE 107 
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GATORS N SNAKES 


For the C-64 
BY JAMES SANDERS 


77 | ators N Snakes is an arcade style game that 

utilizes a number of the great features of the 

| C-64. What gives the program its great move- 
L 


ment is a machine language routine that 
moves eight sprites at random speeds. The same routine 
also detects sprite to background collisions which are then 
handled in the BASIC portion of the program 

Gators N Snakes has as its setting the murky waters 
of a Louisiana swamp. The hunting party is on the last 
leg of the long journey. The gator and snake infested 
swamp is the final obstacle that separates them from the 
security of home. Your job is to help the hunters reach 
their homes by carefully crossing that dreaded swamp. 

After the game is loaded and run, the playscreen be- 
comes visible with gators and snakes swimming up and 
down the swamp wate! here are four returning hunt- 
ers on the left side of the screen, and their destination 
on the right side. Sounds simple enough, right? The prob- 
lem (and the object of the game) is to get the hunters 
home in one piece. 

You have four opportunities to get them home. The 
gators and snakes must be avoided at all costs. Contact 
with them means certain death. If you are successful in 
getting a man to his home, you are rewarded with an ad- 
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ditional man, If you are able to get all four men home, 
you advance to the next level and may try again. There 
are ten levels of difficulty; the increase is accomplished 
in two ways. The more noticeable is the increased size 
of the reptiles. The less noticeable but more dangerous 
is the gradual increase in the speed at which the reptiles 
swim. This speed creeps up on you, so be careful. 

The program utilizes another ML routine that quick- 
ly moves the character set in order to generate a few cus- 
tom characters. 

When all four men have met their doom, the game 
is over. At this point the current score is compared to 
the existing high score and replaces it if it's higher, The 
high score is maintained for the next game (which is be- 
gun by pressing the fire button). 

I have inserted two checks to insure that the ML rou- 
tines are typed in correctly, Both will signal the lines 
in which the mistake is made in order that the mistake 
may be easily found and corrected. 

Carefully type in the program, and save it to tape or 
disk before you run it. After it is saved plug a joystick 
into port #1 and get ready to cross the Gator N Snake 
infested swamp. Û 

SEE PROGRAM LISTING ON PAGE Ш 


PROGRAMMING 
TIPS WANTED 


Here’s a chance for you, the readers of 
Ahoy!, and us, the editors of Ahoy!, to work 
together. If we each do our part, we can make 
Ahoy!'s soon-to-debut programming tips col- 
umn the finest in any magazine. Your part will 
be to provide hints, tips, and programming 
routines that can simplify your fellow Commo- 
dore computerists’ lives, enhance their abili- 
ties, or both. Our part will be to come up with 
a catchier title by the time this column actual- 
ly appears. 

Keep run-of-the-mill, twice-told tips to your- 
selves. This is Ahoy! We want valuable pro- 
gramming tips. And we'll pay premium rotes 
or them. 

Send your submissions to Ahoy! Program- 
ming Tips, lon International Inc., 45 West 34th 

Street—Suite 407, New York, NY 10001. 
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smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print head at 100 
million characters this printer will last a lifetime. Full formatting with near letter quality makes lining up decimal 
points. automatic "S" signs and tabbing look fantastic and easy to use. With out a doubt THIS IS THE BEST PRINTER 


uper Summer 


VALUE IN THE U.S.A. Lis! 5899.00 Sale $249.00 LIMITED QUANTITIES! 

PRINTING METHOD COLUMN CAPACITY RIBBON LIFE GRAPHICS 

Serial Impact Dot Matrix 126-250 1 Million Characters Bit Image 

PRINT RATE TIRE SPACING PAPER WIDTH Programmable Characters 
150-170 Characters per Programmable 3” to 15' 2" tractor or Reverse Characters 
second (CPS) single sheet friction 

PRINT STYLE Cd ; INTERFACE ERROR HANDLING 

Near Letter Quality жк c oor IEEE Protocol Internal 

PRINT DIRECTION RIBBON TYPE CHARACTER SIZE Sell - Diagnostics 
Bi-directional Cartridge ($14.95) 0.116" high. 0.08" wide Microprocessor 
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Super Summer Sale 
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Warranty 
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FOR COMMODORE 64 AND РЕТ COMPUTERS 
By Alfred J. Bruey 


program is writing the documentation. It is also 

often true that the most tedious part of writing 

documentation, especially if a program is menu- 
driven, is typing up the menu screens so that they re- 
semble the screens that the user will see as he runs the 
program. This is also the most expensive part of the type- 
setting function if you are preparing your documenta- 
tion for publication. 


INCORPORATING THIS PROGRAM 
INTO YOUR SYSTEM 

То use the program shown on page 100, just type in 
the program you wish to document, making sure to leave 
open the line numbers from 50000 to 50250 (although 
you can renumber this routine any way you want). After 
you've entered your program, append the routine on page 
100 to the end of it. 


AN EXAMPLE 
You can use this program to demonstrate itself. Just 
enter the screen print routine and add the BASIC line 


19 GOSUB 59000: STOP 


“Computer, computer, look at my face, 
Am I the fairest in your database?” 


46 AHOY! 


t is often true that the hardest part of writing а The program shown on page 100 is for the Commodore 


64. To make it run on the PET/CBM models, change 
line 50040 to 


50040 FOR I = 32767 TO 33750 STEP 40 


Then type LIST so that the program will be displayed 
on the screen. Now type RUN and press return. What- 
ever is on the screen will be reproduced on your printer. 


HOW TO USE THIS PROGRAM 

At any time during the running of a program when 
you want to keep a hardcopy (printed) record of what 
appears on the screen, just put in a GOSUB statement 
1o execute this subroutine. The program will pause long 
enough print out the screen image and then continue with 
its processing. You will find that the screen images аге 
faithfully reproduced with one exception: all lowercase 
alphabetic characters will be converted to uppercase. This 
program will print all upper case and graphics charac- 
ters, both regular and reversed. Once you've printed cop- 
ies of all the screens for your documentation, you can 
turn the GOSUBs into REM statements or else remove 
them and the subroutine from the program completely. 


з A sample program layout might be as follows: 


program initialization 


coding to display first menu 

GOSUB 50000 

INPUT or GET statement for first menu 
processing 


coding to display second menu 

GOSUB 50000 

INPUT or GET statement for second menu 
processing 


A FINAL NOTE 

You can also leave this routine in a production pro- 
gram to make a record of your transactions. For exam- 
ple, assume you are using your computer to enter requests 
based on customer phone calls. You can install this rou- 
tine in your program in such a way that each time a call 
is taken and the data recorded on the screen, a hardcopy 
of the transaction will be printed as part of your daily 
records. © SEE PROGRAM LISTING ON PAGE 100 
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Top left: Pond by Dave Moroz-Henry 
(Downington, PA), drawn with Koala, 
Mr. Moroz-Henry claims to be a gen- 
uine starving computer artist seeking 

3 gainful employment in the computer 
graphics or software development 

f field. Correspondence from inter- 

ted parties will be forwarded to Mr. 
Moroz-Henry. 


Four images by Armand Suarez (New Iberia, LA), whose work can be de- 
scribed as Far East or Far Out: Fuji-San, Geisha (left), Torii (above), and 
Be Starship (right). All images created with the KoalaPad and Koalapaint software. 
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| Contributors to Ahoy!'s Art Gallery will receive 
| disks containing the best computer graphics received, both published and un- 
Î published. Send your best work on disk, accompanied by a stamped and self-ad- 
| dressed mailer, to Morton Kevelson, PO. Box 260, Homecrest Stati 

1 | lyn, NY 11229. Indicate the drawing package that was used to create the im- 
{ age. If you employed a bit map of your own design, indicate the appropriate 
Î file parameters, i.e., hi-res or multicolor, location of bit map, screen or color data. | 


Тор left: Sailboat by Earl Hamner 
(Milpitas, CA). Middle: BC Gasson 
by Peter T. Hughes (Canton, MA) is 
Gasson Hall at Boston College drawn 
in meticulous detail with Paintpic 
without zoom feature. Bottom right: 
an irresistible entry from Richard and 
Pamela Winters (Shreveport, LA). 
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Simulations of the Real World By Dale Rupert 


ast night my Commodore 64 dropped nearly mations to the truth. This month we will look at some 
a quarter of a million needles on a hardwood methods and limitations of simulating real-world events 
floor. It kept track of how many of those nee- оп a computer. 
е fell across a crack, and thereby pro- | Three basic ways of predicting outcomes of events are 
claimed that the value of pi is 315845536. My Commo- calculation, enumeration, and random simu lation. Calcu- 
dore 64 also calculated that with at least 17 people іп lations are readily performed if a formula and the rele- 
a room, there is a one hundred percent probability that vant values are known. Probable outcomes of statistical 
two or more of them have the same birthday. experiments involving dice, cards, and other such devices 
Unfortunately, neither one of these conclusions is total- оѓ chance are often determined by enumeration. Enum- 
ly correct, Both conclusions are somewhat crude approxi- eration is a process whereby all possible outcomes are 
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listed, and the successful outcomes are simply selected 
from the list and counted. Within limits, calculation and 
enumeration on the computer can arrive at an exact result, 
if one exists. 

А standard method of computer simulation is to гап- 
domly select the outcome of a series of events such as 
the roll of the dice or the location and orientation of a 
needle dropped on the floor. By analyzing the randomly 
chosen results, the likelihood of a particular outcome may 
be determined. The results of the simulation will be only 
ав good as the randomness of the selection and the ac- 
curacy of any calculations involved. 

Before we begin simulating various events, we will de- 
fine some terms and concepts. 115 time for a short course 
in probability and statis! 


CHANCES ARE... 

Let's begin with a simple example that everyone can 
readily visualize. To determine the probability of getting. 
two heads when two coins are flipped, proceed as follows. 
If we flip two coins, there are four possibilities: HH, 
HT, TH, and TT, where H stands for heads and T stands 
for tails. We have thus enumerated all four possible out- 
comes for the flipping of two coins. Now we merely count 
the number of successful outcomes, namely the number 
of outcomes containing two heads. 

Obviously only one out of the four possible outcomes 
is successful. Consequently we conclude that the proba- 
bility of getting two heads when flipping two coins is 
‘one out of four or one fourth or twenty-five percent. The 
probability of getting at least one tail can be found the 
same way: count the number of successful outcomes and 
divide by the total number of possible outcomes. From 
the list above, there are three outcomes which contain 
at least one tail. Therefore the probability of getting at 
least one tail is three out of four or seventy-five percent. 

The implications of statistics and probabilities are of- 
ten misunderstood. Indeed the probability ы 
when tossing two coins is twenty-fi 
the long run two heads will be fli oped one fourth 
of the time. A twenty-five percent probability does not 
mean that after three unsuccessful flips, the fourth will 
ful. In fact the first fifty flips (or the first mil- 
for that matter) could conceivably be all heads, 
but such a sequence is not likely to happen often. 

If more than a half dozen sets of double heads occurred 
in a row, there would be reason to believe that maybe 
something is fishy (loaded coins or loaded flipper per- 
haps). It is a straightforward process to calculate the prob- 
ability that six sets of double heads would occur in a row. 
Since each outcome is independent of every other one, 
simply multiply the individual probabilities together. The 
result is one fourth raised to the sixth power, or 0000244. 
Probabilities are frequently given as percentages, so mul- 
tiply the result by 100 to get 0.024 percent. That's why 
we might be suspicious i sequential pairs of heads 
were flipped more than rarely. 

The probability of success and the probability of fail- 


ure add up to one. If the probability of getting two heads 
is one fourth, the probability of not getting two heads 
is three fourths. It is easy to see this if you count the 
number of “failures” in the enumerated list and see that 
there are three. The percent probabilities of success and 
failure add up to one hundred, so the probability of nor 
getting six pairs of heads in a row is (100 — 0.024) or 
99.976 percent. 

Probabilities deal with successful outcomes as a frac- 
tion of total possible outcomes. Odds are related but 
slightly different. Odds compare the number of success- 
ful outcomes with the number of failures. The odds that 
а pair of heads will be flipped are one to three (one chance 
us three chances opposed). We will deal with 
rather than with odds. 

Now that we have the rules and the vocabulary for deal- 
ing with probabilities, let's drop some needles on the floor. 


FALLING NEEDLES 

Count Georges-Louis Leclerc Buffon was an eighteenth: 
century French naturalist and experimentalist. His ex- 
periment which we will simulate involved dropping nee- 
dles onto a ruled sui ind counting how many of them 
landed on a line. Surprisingly enough, he found that the 
proportion of needles landing on a line was a multiple 
of pi! Specifically, if the lines on the surface are a dis- 
tance H apart, and the length of the needle is L, the prob- 
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ability that a needle falls on a line is two times L divid- 
ed by the quantity H times pi. An account of Count Buf- 
fon's experiment, as well as multitudes of other interest- 
ing problems, are presented іп the book Mathematics and 
the Imagination by Edward Kasner and James Newman 
(Simon and Schuster). Try a bookstore or a library for 
this most entertaining volume. 

How can a computer simulate the dropping of needles? 
A little head-scratching reveals that there are essentially 
two random parameters: the location of one end of the 
needle and the location of the other end. The two para- 
meters are related. In fact, if we pick the location of one 
end and the angle of orientation of the needle, we can 
calculate where the other end is. 

Assume that each board of a hardwood floor has a 
width H and a needle has a length L. One end of the 
needle may fall at any distance YO from one crack. If 
the needle makes an angle A with respect to the hori- 
zontal, the other end of the needle is at a distance Y from 
the crack, where 


Y = YO +1, * SIN(A) 


The diagram below should help. 


L'SIN(A) 


Y 
"AE: 


А needle of length L is dropped onto a floorboard 
of width H. Will it land on a crack? 


Some thought should convince you that we lose no gen- 
erality by using a single floorboard of width Н. We will 
choose a random value for YO between 0 and H. We will 
also choose a random value for the angle A. Deciding 
what limits to place on the size of A was somewhat dif- 
ficult. Let's consider a needle pointing horizontally to 
the right to have an angle of 0 radians (0 degrees) and 
à needle pointing vertically upward to have an angle of 
pi/2 radians (90 degrees). We should be able to limit the 
range of A from 0 to 2*pi radians (0 to 360 degrees) to 
cover every possible orientation. To do so would require 
that we use the value pi in our random number genera- 
tion, and that is the very value we are trying to find. 

Consequently we will choose a random value for A 
between 0 and some arbitrarily large number, say 30000. 
Although 30000 radians is not an exact number of com- 
plete revolutions, our results should not be overly biased. 
You might try 31416 radians as an upper limit which is 


even closer to an integral number of revolutions. 

The groundwork is nearly complete. The computer will 
pick two random numbers, YO and A. It will calculate 
the location of the other end of the needle, Y. Then it 


the diagram you can see that the needle does lie across 
a line if Y is greater than H or if Y is less than zero. 


The program Needles (see page 90 in the program listings 
section) implements this simulation. 

The length of the needle is chosen to equal the width 
of the floorboard. K is the constant relating the ratio of 
L and H to the value of pi. TRIES keeps track of the 
number of needles dropped. WINS is incremented when- 
ever the conditions in line 90 are met, that is, whenever 
the needle falls across a line. The variable PI is the cal- 
culated result, which should theoretically equal pi if 
enough needles were randomly dropped. TTL and АУС 
keep a running average of the values of PI after each drop. 
The value of AVG will change less rapidly than PI and 
might be easier to follow. 

My Commodore 64 dropped needles for nearly eight 
hours. After 231,878 drops, it showed a value for PI of 
3.15845536 and a value for AVG of 3.15426395. These 
are certainly not very impressive results. Kasner and 
ned in their book that Lazzerini, an Ital- 
ian mathematician, dropped 3408 needles and came ир 
with a value for pi of 3.1415929, correct to six decimal 
places! (Pi is approximately 3.141592654.) 

Why are the results of this program so inaccurate? Тһе 
most likely suspect is the random number generator itself. 
If you ran the random number generator program in the 
June 1985 Rupert Report, you saw that there are amaz- 
ingly obvious patterns among the supposedly random 
numbers being generated. The only other factors which 
could account for such a poor showing are the limited 
word length for numeric variables and the inaccuracies 
of the mathematical operations. Perhaps using a different 
range of values for A would make a difference. 

Let me know of any modifications you make to this 
program and what your results are. Maybe using a dif- 
ferent random number generator would help. Your ideas 
are welcome. Let's move on to another simulation. 


MATCHING BIRTHDAYS 

Perhaps you have heard that with twenty-three people 
or more in a group, the odds are better than even (there 
is greater than 50% probability) that at least two people 
will have the same birthday. Once again this means that 
if you investigate a great enough number of groups, slight- 
ly more than half of them will contain at least one set 
of matching birthdays. 

There is a formula for calculating the probability of 
matching birthdays. We will derive the formula and write 
à program to evaluate it for groups of any size. Next we 
will write a program to randomly choose birthdays for 
people in groups of a given size. It will be up to you 
to see how closely the results of the simulation program 
match the calculated results. 

Let's consider a group of three people. To calculate 
the probability that at least two of them have the same 
birthday, we will work in reverse. We will calculate the 
probability that no two of them share a birthday. We will 
subtract that result from one, since the probability of a 
failure plus the probability of success add up to one. 

Consider the first person. His birthday may be any one 
of 366 days. (We are assuming all birthdays are equally 
distributed throughout the population, which in actuality 
they aren't.) If he were the only person in the group, the 
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probability of a failure would be one, since obviously 
he would not share a birthday with anyone else in the 
group. The probability of success for one person is zero. 
"Success" will mean “two or more people in a group shar- 
ing a birthday" "Failure" will mean "no two people in 
a group sharing a birthday" 

For the second person, 


ге only 365 of the possi- 
ble 366 days that lead to a ince his birthday must 
not match the first person’ hday. For the third per- 
son, there are only 364 of the possible 366 days that lead 
to a failure, since the third birthday must not match ei- 
ther of the other two. 

The overall probability of failure for a group of three 
people is 

366 366 366 


where each fraction is the ratio of the number of fail- 
ures to the total number of possibilities. To calculate thi: 
type of expression, alternate between the divisions and 
multiplications for best accuracy. The probability of fail- 
ure is roughly 0.992 or 99.2 percent. That means the 
probability of success is (1 — 0.992) or 0.008 which is 
088 percent, 

Continuing this line of reasoning, we arrive at a gen- 
eral formula for the probability of failure for a group оѓ 
NP people: 


366 * 365 * 364 * .,. * (367-NP) / (366) + NP 


As before, the probability for success is one minus that 
quantity. You can see that if there are 367 people in the 
group, the probability of failure equals 0, since the last 
term in the numerator is zero. That's exactly what is ex- 
pected, since there are not 367 different birthdays. 

The Birthday Calc program on page 90 consists of two 
parts. The first part asks for the number of people in 
the group, and it calculates the probability of success by 
evaluating the above formula with a FOR-NEXT loop. 
If you enter a non-integral value or a value of zero, the 
program branches to line 200, The second part of the 
program at line 200 evaluates the formula for each val- 
ue of NP from | to 366 and displays the results one 
screenful at a time. VIC 20 users may modify lines 230 
and 240 to tidy up the display. 

If you want to print out the results, you may insert line 


205 OPEN 4,4 


Also change lines 230 and 240 to contain "PRINTA47 
instead of "PRINT" and delete lines 270 and 280. Notice 
that the probability of shared birthdays in a group of 58 
people is greater than 99 percent. It's still hard to believe, 
isn't it? 

One final project this month is the program called 
Birthday Simulator (see page 90). The listing uses 24 
for МОМР, which is the number of people in each group. 
You may change this value in line 30. For each person, 
à random number from 1 to 366 is chosen to represent 
his birthday. The array BDAY(PERSN) contains the birth- 
day value for each value of PERSN. If the first person's 


randomly chosen birthday is 5 (January Sth), BDAY (1) 
equals 5. larly if BDAY(3) equals 366, the third per- 
son in the group was born on day 366 (December 31). 

The other array CT( ) keeps track of the number of 
times a particular birthday has occurred within a group. 
For example, if CT(366) equals 2, then two people in 
the group have a birthday on December 31. Although 
there is an array element in CT for each of the 366 days, 
we only need to look at those elements corresponding 
to birthdays which have been assigned. The assigned 
birthdays are contained in the BDAY( ) array. Consequent- 
ly the program uses BDAY(PERSN) as an index into the 
elements of CT( ) which are non-zero. 

Try a simple example to understand this data struc- 
ture. Suppose there are three people in the group. The 
first and third persons’ birthdays are January 10 (DAY 
= 10) and the second person's birthday is January 5 (DAY 
= 5). The non-zero values of BDAY( ) and CT( ) are 
as follows: 


BDAY(1) = 10; BDAY(2) = 5; BDAY(3) = 10 


СТ(5)-1 ; СТ(10)=2 

The program loop starting at line 140 to check for dupli- 
cate birthdays looks only at elements of CT( ) correspond- 
ing to valid BDAY values. Program execution is the 
much faster than if every value of CT had to be chec! 

As soon as a CT( ) value greater than or equal to two 
is found (implying that at least two people share that birth- 
day), lines 160 and 170 are executed. The SUCCESS flag 
is set to one in line 160. The loop parameter PERSN is 
set to the upper limit of the loop so when line 180 is 
executed, the loop is finished. The program quits search- 
ing for matching birthdays as soon as it finds the first oi 

Line 190 tests the SUCCESS flag. If it is one, the 
tal number of successful groups TTL is incremente 
Lines 200 and 210 display the current percent probabi 
ity of success based upon all groups simulated so far. 
Line 220 increments the number of groups and the pro- 
gram is repeated for a new group. SUCCESS is reset 
to 0 and the non-zero values of CT( ) are zeroed. 

Eventually the results of this program should approx- 
imate the results calculated in the previous program. Once 
again, the non-randomness of the random number gen- 
erator will not give ideal results, but the results should 
be close to the expected values. 

This type of random numbe: 
in research to estimate values for quant 
very difficult or even impossible to calculate exactly. You 
can read more about computer simulation in the McGraw- 
Hill Encyclopedia of Science and Technology and other 
encyclopedias under the topics of “Simulation” and “Monte 
Carlo Methods.” 

Next month we will compare the techniques of enum- 
eration and random simulation as we analyze some tumb- 
ling dice. What is the probability of rolling “an eleven” 
with three dice? Working out such a problem by hand 
is quite a chore, We'll let the computer figure it out next 
month. © SEE PROGRAM LISTINGS ON PAGE 90 
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ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 


Commodares, clo Ahoy! 
PO. Box 723 


Bethel, CT 06801 


We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions, Be 
sure to identify the name and number of the problems 
you are solving. Also show sample runs if possible, where 
appropriate. Be sure to tell what makes your solutions 
unique or interesting, if they are. Programs on diskette 
are welcome, but they must be accompanied by listings. 
You must enclose a stamped, self-addressed envelope if 
you want any of your materials returned. Solutions re- 
ceived by the middle of the month shown on the magazine 
cover are most likely to be discussed, but you may send 
solutions and comments any time. Your original program- 
ming problems, suggestions, and ideas are equally wel- 
come, The best ones will become Commodares! 


ص 
Problem #20-1: Screen Scramble II‏ 

This is a variation on the problem suggested last month 
by Jesus Geliga Torres (Aguadilla, PR). Write a program 
which transforms the image on the screen into a new im- 
age such that (a) the top line from left to right becomes 
the bottom line from right to left, (b) the second line from 
the top becomes the next to the last line, also in reverse 
order, (c) and so on for each screen line. The shortest 
solution is the best. 


ББК 
Problem #20-2: Numeral Converter 

Jim Speers (Niles, MI) suggested this problem. Write 
a program which will input numbers in English and trans- 
late them into numeric form. For example, "eight hun- 
dred thirty four thousand five hundred seventeen" would 
be converted to “8345177 Make your program a “bare- 
bones" solution with no frills. 


КЕБЕЗ 
Problem #20-3: Decimal Endings 

Martin Levinton (New Rochelle, NY) proposed the 
following challenge. Write a program which prints the 
integers 1 through 100 and states whether the reciprocal 
of each number is a repeating or a terminating decimal. 


If it is a repeating decimal, the program must state the 
period of repetition. Some examples are in order here. 
The number 4 has a reciprocal of 1/4 which has a deci- 
mal value of 0.25 which is exact (terminating). The num- 
ber II has a reciprocal 1/11 with a repeating decimal rep- 
resentation 0.090909.. and a period of 2. Any questioi 


х 
Problem #20-4: Hyphen Help 

The user inputs a word. The computer displays all rea- 
sonable ways of hyphenating the word. For example, if 
the word is “reciprocal,” the output should be 


and if the word is “good,” the output should be “good.” 
If you submit a solution to this one, please summarize 
in REM statements or elsewhere the rules you are using. 


This month we will discuss readers solutions to Com- 
modares from April. A few people thought that Prob- 
lem #19-1: Numerical Columns was an April Fool's joke, 
since it cannot be solved in general. The problem was 
ity since I occasionally need numbered 
‚ and using the computer to create them 
seemed like the thing to do. The problem was to print 
out N numbers in C columns with all columns being of 
equal length except for the last one, which might be short- 
er. If the user enters 5 for the number of columns and 
11 for the hig umber to be printed, a conflict aris- 
es. Clearly there is no arrangement of 11 numbers into 
5 columns with the last column shorter than the other four. 

Unfortunately, no one sent an analysis of what's wrong 
with the problem. If the user specifies either one or two 
columns, there is no conflict for any number of items. 
With three columns, it is impossible to satisfy the con- 
ditions of the problem when N equals 1 or 4. (This as 
sumes that the last column need not contain any items.) 
Similarly if C equals 4, troublesome values of N are 1, 
2, 5, and 6. If C equals 5, N cannot equal 1, 2, 3, 6, 
7, 8, or 11. If you can come up with a general explana- 
tion for which values of N may not be specified for a 
given C, let us know. For example, if 20, can you 
predict which values of N won't fit? 

Among the simplest solutions to Problem #19-1 was 
this one from John K. Lunde (Orono, ME). 


1 REM 
2 REM COMMODARES #20 
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3 REM PROBLEM #16-1 : NUMERICAL COLUMNS 
4 REM SOLUTION BY JOHN K. LUNDE 

5 REM 

10 INPUT"COLUMNS";C:INPUT"LAST NUMBER"; L 
:IZ=(L-1)/C+1 

20 Y=Y+1:FOR C=Y TO L STEP IZ:PRINT RIGH 
T$(" "+5ТК$(С),5); :NEXT: PRINT 

30 IF Ү<12 THEN 20 


Another way of rounding a number up to the next larger 
integer is shown in this solution from John R. Prager 
(Bay City, MD. 


1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM 416-1 : NUMERICAL COLUMNS 
4 REM SOLUTION BY JOHN R. PRAGER 

5 REM 

100 INPUT "NUMBER OF COLUMNS";C%: IF CZ« 
1 OR C%>5 THEN 100 

110 INPUT "ENDING NUMBER";NZ: IF М2<1 OR 
NZ»1000 THEN 110 

120 X=INT(N%/C%+.9):FOR J=1 TO X 

130 FOR COL=9 TO CZ-l:IF J+COL*X<=N% THE 
N PRINT TAB(COL*6) J+COL*X; 

140 NEXT:PRINT:NEXT 


Solutions to this problem and others were received from 
Jim Speers (Niles, MI), Joey Klein (Chalmette, LA), 
Willie J. Fitzpatrick, Jr. (Huntsville, AL), Jim Barranti 
(Canonsburg, PA), Ira Kroll (College Park, MD), J.R. 
Tomasello (Crosby, TX), Roger Leger (New Westmin- 
ster, BC), Ji ine Callaway (Orange Beach, AL), 
James Borden (Carlisle, PA), Frank Gourley (Kenesaw, 
NE), Bill Fahber (Bridgeton, NJ), Brano Zidovec 
(Kitchener, ONT), Kevin Collins (Toledo, OH). Gary 
Hudach (Youngstown, OH), Grace Ippolitto (Denver, 
CO), and Richard Gray (Ludlow, VT). 

The shortest routine to solve Problem #16-2: Quick 
Decimal was submitted by Brano Zidovec (Kitchener, 
ONT). He points out that the only problem with his solu- 
tion is that it does not limit the input to numbers and 
the letters A through F. Still, the problem requested the 
shortest routine, so here it is: 


1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM 416-2 : QUICK DECIMAL 

4 REM SOLUTION BY BRANO ZIDOVEC 

5 REM 

10 INPUT A$:FORI=1 TO LEN(A$):B=ASC(RIGH 
T$(A$,1)):C=C+(B-48+7*(B>57) )*16^(I-1) 
20 NEXT:PRINT C 


Solutions for this problem came from others not men- 
tioned above 
William H. 


DE), and Garry Hurley Jr, (Williamsport, PA). 
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The number of correct responses to Problem 416-3: 
Time Warp indicates that many readers know physics as 
well as computers. The solution below suggested by Bill 
Fahber (Bridgeton, NJ) is representative of several others. 


1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-3 : TIME WARP 

4 REM SOLUTION BY BILL FAHBER 

5 REM 

10 INPUT"++ELOCITY, 2 OF C";V 

20 PRINT'+HAT 15"; V*6706166.256"MI/HR" 
30 PRINT"OR" ; V*2997 .924562; "KM/SEC" 

40 PRINT"4OUR YEAR IS";(1-(V/100)^2)^-.5 
; "YEARS." 


A few embellishments added by other readers are worth 
noting. John Prager (Bay City, MI) included a statement 
in his program that the velocity to be entered must be 
less than 100 percent of the speed of light since "no tach- 
yons are allowed!" R.J. Kaider (Chicago, IL) gave credit 
in his REM statement to “Н. Lorentz, G. Fitzgerald, А. 
Einstein, et al.” James Borden (Carlisle, РА) in his 
COMAL language solution allowed the user to enter a 
rocket speed of 100 percent the speed of light. His pro- 
gram responded that а year on the rocket would seem 
like infinitely many years on earth in such a case. A few 
readers mentioned that it doesn't matter whether we as- 
sume that the earth or the rocket is moving. Time as mea- 
sured from our system is always observed to be progi 
ing more slowly in the other system. As Jim Spee 
(Niles, MI) pointed out, "That's why they call it relativ- 
ity!” Keith Kushner (Brooklyn, NY), Tim Sapp (Mt. 
Vernon, OH), and Mark Crother (Wilmington, CA), in 
addition to readers mentioned earlier, sent solutions to 
this Commodare. 

If your interest has been whetted by this little prob- 
lem, two books that I highly recommend are The Rela- 
tivity Explosion by Martin Gardner (Vintage, 1976) and 
Mr. Tompkins in Paperback by George Gamow (Cam- 
bridge University Press, 1967). Both books are most en- 
joyable and informative readi 

Problem #16-4: Common Pairs was a bit of a challenge. 
The most common approach was to fill a 26 by 26 array 
with the count of cach occurrence of every pair of let- 
ters in the given sentence. Fred Ransom (Oxnard, CA) 
referred to this as a distribution sort. The solution from 
Jim Speers (Niles, MI) is listed below. 


1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-4 : COMMON PAIRS 

4 REM SOLUTION BY JIM SPEERS 

5 REM 

100 DIM M(26,26) 

110 PRINT CHR$(147)CHR$(17)"ENTER TEXT. 
USE + FOR CONTINUATION": PRINT 

115 PRINT"MAXIMUM-255 CHARACTERS": PRINT: 
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$$="" 
120 ,POKE631,34:POKE198,1:INPUTAS$:IFRIGHT 
$(A$,1)<>"+" THEN 140 

130 S$=S$+LEFT$(A$,LEN(A$)-1):PRINT" 
N(S$):GOTO120 

140 S$=S$+A$ 

145 FORX=1TOLEN(S$)-1:X$=MID$(S$,X,1):GO 
SUB200: 
150 X$=MID$(S 
)=М(А,В)+1 
160 PRINTCHR$(147)CHR$(17)S$:PRINT: FORA= 
7026: IFM(A,B)<2THEN189 

NTCHR$(A+64 )CHR$(B+64)"="5;M(A,B), 
180 NEXTB,A:END 

190 PRINTCHR$(A+64 )CHR$(B+64)"=" 
200 Z=ASC(X$)-64 : IFZC10RZ»26TH 
210 RETURN 


NG 


+1, 1) :GOSUB290: 


-Z:M(A,B 


(А,В), 
0) 


Jim's program allows the user to enter the [back arrow] 
as a continuation character in order for the INPUT state- 
ment to handle strings longer than 80 characters. Line 
120 POKEs a quotation mark into the keyboard buffer 
and POKEs a one into the keyboard buffer counter. That 
allows the user to type commas in the input sentence. 

The 27 by 27 array M( ) uses the zero row and col- 
umn for "garbage collection" such as spaces and non-al- 
phabetic characters. Each letter pair is converted to two 


numbers which define the element of M( ) to be incre- 
mented. For example, the letters "AZ" would be transla- 
ted to “1,26” in line 200. Matrix element M(1,26) is then 
incremented in line 150. Line 170 scans through matrix 
МЦ ) looking for any elements with a value of 2 or great- 
er, indicating that the pair occurs more than once. The 
common pairs are printed by line 170. 

How many readers know the most common character 
used in standard text in the English language? The letter 
"E" you say? Nope. One character is more frequent. How 
about the frequency of letter pairs or triples? A most im- 
pressive analysis of such matters (as well as many others) 
is contained in Scientific and Engineering Problem-Solv- 
ing with the Computer by William R. Bennett, Jr. (Pren- 
tice-Hall, 1976). If you ever run out of things to do on 
your computer, Dr. Bennett's book will provide a limit- 
less source of ideas. 

Here's one final challenge for those of you interested 
in the problems of letter frequency and cryptography 
Modify your solution to Problem #/6-4 so that it can read 
and analyze text from tape or disk files. Type a large 
block of text to a file, then calculate the letter frequen- 
cies and compare them with other such files. Use your 
calculated frequencies to decipher encoded text where 
one letter has been substituted for another. Jg zpv dbo 
eídjqifs uijt tfoufodf, xsjuf boe ufmm vt ipx zpv eje ju. 
Happy programming! Û 


e Your Home Secure and Energywise 


... with Genesis Home Control Products 


At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 


The Genesis ViController allows you to control up to 256 lights and appliances throughout your home using standard BSR 
receiver modules. With the included software, you can create daily and weekly control schedules. 


Your system can be expanded by adding Genesis’ COMsense input device, Super 
‘Schedule Plus software, and available sensors. Commands can 

then be issued in response to on/off inputs such as the 

opening of a door or analog inputs such as a change in 

light level, By adding COMclock, a crystal 

controlled clock/calendar, your system will 

have an accurate, battery 
backed-up time base. 
COMclock's Autoboot ROM 
acts as a failsafe restart for 
the system in the event of 
a power failure. 


Sold separately the ViController, 

COMsense and COMclock 

sell for $69.95 each and 

the Super Schedule Plus software sells for $19.95. All four products are available together in our HOME CONTROL 


^ еледі 7 on —— 
m T | 


PACKAGE for only $199.95. 
Call 215-861-0850 to order direct or contact your local dealer. 


Genesis Computer Corp. P.0. Box 152 Hellertown, PA 18055 
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REVIEWS 


FELONY! 

CBS Software, Inc. 
Commodore 64 
Disk; $34.95 

Last year's Murder By The Dozen 
challenged would-be detectives to 
solve 12 homicides in the little town 
of Micropolis. The same design 
house, BrainBank, has finally deliv- 
ered this long-awaited sequel. 

The pressure is mounting on Sean 
M. McHugh, the police chief of 
Huxley, Anywhere, U.S.A. The gov- 
ernor wants action on a dozen un- 
solved cases ranging from the theft 
of a major archaeological find to a 
terrorist threat to blow Huxley right 
off the map. 

One to four armchair investigators 
compete against each other and the 
time limit to discover the guilty par- 
ty and unearth enough clues and evi- 
dence to help the prosecutor win a 


conviction when the case goes to trial. 


Felony! is a strategy game built 
around a set of interactive onscreen 
menus. Each turn, the crime compu- 
ter offers every detective a choice оГ 
seven possible actions. A player can 
only perform one activity per turn. 
The precise options which are avail- 
able depend on the case involved and 
the sleuth's current whereabouts. 

In broad terms, a player can ques- 
tion one of several suspects, exam- 
ine physical evidence, or move to a 
different location to pave the way for 
а new line of inquiry. The police 
headquarters has some special op- 
tions found nowhere else in town. 
These include a records computer 
with data about known criminals, a 
laboratory to analyze evidence, and 
access to your favorite stool pigeon. 

The detective enters the number 
printed next to his or her choice on 
the menu to select an action. The 
program responds with a list of sev- 
eral numbers which are keyed to sev- 
eral of the 700 entries printed in the 
Felony! clues book. The player looks 
up each code number in the clues 
book and writes down a series of 


talia.net 


Felony!: the long armchair of the law. 
READER SERVICE NO. 1% 


short phrases which combine to form 
a message. Sometimes, all that work 
gets a frustrating “no clue" result, but 
the investigator usually gets one or 
more juicy facts that can help catch 
the perp and solve the crime. A result 
of "99-99" indicates that the detective 
is barking up the wrong tree and 


Felony! boasts an electronic town map, 
lacking in prequel Murder by the Dozen. 
—— --- 


should head in a new direction. 
The clues system is undeniably 
cumbersome, but it gets the job done. 
It effectively prevents a player from 
inadvertently noticing additional 
clues while receiving information he 
or she is legitimately entitled to. 
Every activity expends precious 
time. A compu-cop must wrap up the 
case as quickly as possible to receive 


вима — 


à high rating, and many of the crimes 
must be solved by a deadline. It takes 
three minutes to question someone, 
five minutes to examine evidence, 
and a variable period to travel from 
place to place. 

The program prompts each detec- 
tive in turn to perform an activity. 
The crime computer gives any police 
officer who has accumulated at least 
20 minutes on the crime computer 
clock the chance to advance a solu- 
tion to the case at hand. To win, an 
investigator must not only name the 
criminal but also provide supporting 
data in the form of motive, evidence, 
and clues. 

A player who wants to charge a 
suspect looks up the case in the solu- 
tions book. By placing a red plastic 
sheet over the appropriate page, the 
accuser can read the actual facts of 
the case. If the solution is correct, 
that detective wins the game and re- 
ceives a competence rating from the 
program. If the theory is wrong, the 
game proceeds, minus the erring 
sleuth, until someone does come up 
with the right answers. 

Felony! is certain to please anyone 
who enjoyed Murder By The Dozen. 
"The sequel has improved artwork, an 
electronic town map, more intriguing 
situations, multiplayer capability, and 
à more understandable format for the 
onscreen menus. 

No computer game is perfect, and 
Felony!, too, has defects. The most 
glaring is that the visuals are still not 
on the same high level as the game- 
system. BrainBank has clearly made 
an effort to upgrade this facet of its 
work, but there is still room for im- 
provement. An illustration for each 
of Huxley's 28 locations would dress 
up a program like this considerably. 

When all is said and done, it's the 
quality of the cases which distin- 
guishes a computer mystery game. 
And the dozen crimes of Felony! pro- 
vide an enjoyable test of the ability 
to think logically and solve complex 
problems. 
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D-Compiler . 


The first D-Compiler to give you back your source code 
fter your program has been compiled with "Blitz. 


бетин of Bayles Electi Works 


1541 Super ROM 539.95 


~ + Fast Save Load Verify also Save with Replace is 


* Fast Scratch and Validate Improved 


М * Two times faster, Eight times faster 
* 10 Second Format with Verity when used with Turbo 64 which is included 
+ No more Drive Head rattling 


during Format or Error Reading * 1541 Super ROM is 100% Compatible • Easily installed in Minutes N 


APALLO COPIES IT ALL 


APALLO Does it All. This program is the latest generation of 
copy programs. It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard fofmat, bad syncs, and half tracks. 
We feel this is the best program of its kind available... $29.95 


eee | 
MSD S Co ` ^ e Copy Protected Disk — * Copy Unprotected Disk 

ure ру A * Copy Files * Scratch a File 

* Format a Disk 95 

At last a complete utility package for the MSD Dual Drive. This « Change Disk Name * Rename a File $39 


is the first MSD utility program that does it all. The main « Quit * View Diroctory 
menu options include. Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29%. | 


D-CODER 


N-CODER  :1995 | Super Loader 


the machine 

* Translates any machine language program into easy оласе Super Loader is a Kartridge that plugs into 
to-read Enghsh descriptions with complete explana- your expansion port, that allows the 
tions of each command" The pertect companion ‘computor, on power up start the disk drive 

4 Makes complete notations of al important memory program to D-CODER! ‘and load the first preselected program on 
locations accessed by the program! (SID, VIC, MOS. E the disk 
KERNAL, etc.) Allows you 10 easily make changes in та- 

* Gives you three ways о! accessing programs chine language programs... right on the disk! | « cnange colors 


1) Will read and list programs trom DISK 
2) Will read and list programs trom MEMORY! 
3) Diroct user input (irom magazines, etc] 7 
Can be used 10 locate and examine any mache |... Feature қ бе 
language programs protecton reutaes" assembly langutge cay o machine 
* Can be used to easily break арап machine language language programs! 

programs for study and examination! Notation of ASCII text equibalents for easy 
* Printer option for complete hard copy listings! ^ spotting of embedded text strings! 


" * Lond weage 
* Rewrite ability allows code to be altered. Lond жез 


and then rewritten directly to the disk! 4 Works with more drive. 


4 Takes up no memory 


рл * Mandy reference display of ай assembly 
ys language commands and their ML ^ 
1 numerical equivelents! $ 95 
* Byte splitter for easy splitting of decimal Only N 


addresses into low byte-high byte та! 


+s This Disk has over 100 routines, routines. They can easily be 4 
g0 some of them are routines for incorporated into all of your programs. 

ОМ. protection, smooth scrooling, modem It is also fully documented. 
50 routines, and sound “and color $4 9.95 
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Slik Load $29.95 
Slik Load is a Kartridge for the C-64. 


Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 
The options include: 


faster load * Status key will give you information on 
ЧА ы Mie sns Men reer device number, byte fre end status of the. 
* Old and un-new е Sii Load s also fully compatible with the х 


1541 Super Rom А 
Syne Reader Check tor Sync bax опалу — Remd/Wille Төз ты! performance. 


Will restore а besic program 


З Й 
T WFF Outros 21. 22. 22.27 6 20 т out to 41 Repair а Treckepsr а trach with 
TOP SECRET SIMI Forma rg Traen Change Drive MoChanger anve chechtum onors Ready cose unon 
- "ево Du Evon awae numser (7:30) 
o dede Dist Logger. e ng trace sector. 


е Trace Formal 


Stan and end scores 
Disk Mateh Compare any two dii 
MEC fr byte 

assembler For your 1941 does ren is the only utility 
Tw Вос рам Dodo mat mem cose 10 Смеа Croci 0» or e Yet of ite kind. It even ha 
лс mam on any View: BAM Vaval oasi otme teans а 3 min. сору on it. 


Mack out аз ano used forprotectan 9862 seciors on ж diahalte 


WAR GAMES ^ ^ | KARTRIDGE KRACKER 
AUTODIALER LEX NOW you can own this unique and powertul tool 


fm | whieh wit allow you to dump те contents of 8K 


ї-Млө Dial wil aviomatcally di a set of numbers you choose and 16K cartridges onto disk! But what's really 


2-Review Numbers wil review numbers tha! were ansmeres by a computer great в that you can also RUN the cartridges pro- 
з. Бане Numbers wil save numbers anere а computer answeres grams without plugging in the cartridge! the 
(— A-Mardcopy of Numbers wi print out ^t of numbers wnere a comet! эллеге KRACKER gets YOU INSIDE the cartridge! Put 
. $-LOAD Numbers wil (сәс n numbers 1o continue where 4 жт oft all your faventes on disk and get id of Wve cht: 
Continue wil pts ор Owing where 1 was өнеді ter. This package provides your with the software 


and hardware needed to got started. Program on 
disk included. (Some cartndges require use of ex- 
ternal RAM not included) 


TOP SECRET STUFF П | 


All C128 Compatible 


Split Screens (Horizontally) Protect Scheme For Your Disks 


4 
7 от Smooth Scrolling Write Protect Disk 
eR Edition | S00 Ran From Under Roms  Unwrite Protect Disk 
f No Drive Rattle On Errors Mini D.O.S. Wedge - 
NLI OH Triple Drive Head Speed Fast Diskmatchor 
k Autoboot Maker Data Statement Makor 
- EE Koala Screen Dump йлем с 
Display GCR 3 Minute Copy 
THIRD EDITION! NOW AVAILABLE: Fast Disk Eraser DMS 


it you're tired ol beng harassed by protected software and too тағу сору 
_ programs, then Ia is Ine book lor you! This 224 page manual Covers te. 
Gambit trom legalities 10 protection methods 10 step-by-step Back up pro- 
cedures. Now you can learn both Now 10 protect and unprotect sofware! 
. The techniques covered include copying cartrages to tape ot dish, tape pro- 
tection, and disk protection. Disk protection covers error no 's 20. 21. 
27 and 20 plus single track formatting. neader mod/icaton, header swaop- 
тд, half Wack reading and wnting. reading and wnting mod ed bi densibes 
formaning ilegal acks/secters, sync wnting and more! The Tiv ection ei 
plains, tells now 10 detect ала new fo write thom with included votare 
Eleven usatu utites and many protection istings! Our asa analyse programs. 
reveal the protection methoos used on your ongnals А бакене with айас 
ware з avaiable for a minimum extra charge. This may not be the only Bo 


If you have TSS#1, You'll ~ 
Like This One! All on one disk? d 995 


Bulletin Board 


оом 


TAUN MEGASO % ЖАО SYSOP MESSAGES. 
3 CREATE MEGA WRITE OPENING MESSAGE 
3 A00 {O SYSOPS CORNER 10.ATAD LOG. 


Your should have lor ine C-64, but is cenainiy the опе boo you shows | a mew sysor s COMER TY CYCUL CoO 
Ле be without E MAD messaces 12 READ DOWNLOAD PLE 
t E SAAN MESSAGE | HISCRATOR DOWMLOAD FILE 
F CYCLE MESSAGES 14.400 TO OMER SYSTEMS x 
C64 Boon only ssssus |550,0) 1$ CREATE OTHER SYSTEMS N ‘ 
Book & Oak of all programs $29.95 US 59.95 BBS JS 4 
Ме 20 book. Can. & Tapes only 996 US + Leveled Access + Expert Mode 
(THIS MANUAL DOES NOT CONDONE PIRACY + Private Message Base + Open Chalk Board for 
" Bes LEONES. + Up to 300 Passwords Highest Level Access. E 
Ww n ] SOR ES 4 
— едаэот Limited 
i я 
Birao И. Р О Box 1080. Battle Ground. Washington 98604 
I چ‎ Phone (206) 687-5116 © BBS 687-5205 ane: келі Computes Comes 
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Big Bytes 

Bytes & Pieces, Inc. 

CBS Software, Inc. 

COM.B. Company 

CVC Online 

Central Point Software, Ine. 
Cheatsheet Products 
Commodore Business Machines 
Computer Information Limited 
Computer Warehouse 
CompuServe 

Covox, Inc. 

Custom Programming Group 
Datatech 

Digital Vision, Inc. 

Epson America, Inc. 

Floppy House. 

Full Circle Software, Inc. 
Genesis Computer Corporation. 
Heware 

Integrated-Software Systems 
Innovative Organizers, Inc. 
Jason-Ranheim 

MARCA, 

Mastertronic International, Inc. 


Peripheral Systems of America 
Professor Jones 

Protecto Enterprizes 

Quantum Software 

RJ. Brachman Associates, Inc, 
Robin's Software 

Roger Wagner Publishing, Inc. 
SKOK 

Simon & Schuster 

Software Link 

Solid State Software 
subLOGIC Corporation 

тар Software 

ТРОС, Inc. 

Tenex Computer Express. 
Timeworks 

Uitrabyte 

УМС Software 

White House Computer 

Xetec, Inc. 


‘The publisher cannot assume 
for errors in the above listing. 
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CBS Software, One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 


622-2500). —Arnie Katz 
HOMEWRITER 10 PRINTER 
Epson America, Inc. 

529900 


The Epson HomeWriter-l is а fric- 
tion feed, impact dot-matrix printer 
that offers 100 cps speed in draft 
mode and is bidirectional and logic 
seeking. Additional features include 


variations, full graphics capability, 
and an optional tractor feed attach- 
ment. Compatibility with most home 
computers, including the Commo- 
dore 64 and VIC 20, is achieved 
through the use of Printer Interface 
Cartridges that are available wherever 
the printer is sold. 

When my editor asked me to re- 
view the printer, I approached the 
project with great enthusiasm. I have 
been in the market for a new printer 
for some time now and could not pass 
up the chance to test something new. 
As an avid computer user I was fa- 
miliar with the Epson brand name 
and felt that I was in for a rare treat 
indeed. 

My enthusiasm began to wane, 
however, shortly after I finished set- 
ting up the printer. The setup instruc- 
tions (a glossy, full color, folding 
booklet) made no mention of how to 
access this printer's special features. 
Nor was there any mention made, 
aside from a cryptic reference to a 
mysterious "PIC manual; of the 12 
dip switches located on the rear of the 
printer. A hasty telephone call to the 
California number listed in the set- 
up booklet as being the Service Divi- 
sion netted me the information that 
Thad, in reached the corporate 
headquarters and would I please call 
my “local” service office in Connec- 
ticut? As I live in New York City, I 
was less than thrilled with the pros- 
pect of adding yet another long: 
tance charge to my monthly bill. 
Feeling that my fee for this review 
would outweigh the associated tele- 
phone charges, I decided that the in- 
formation I needed justified the cost 
and placed the call. 

I should have quit while I was 


NLQ must be seen to be believed. 
READER SERVICE NO. 199 


ahead. My first call to Epson East 
was answered by a harried sounding 
woman who, upon hearing my re- 
quest, promptly placed me on hold. 
Five minutes later, during which she 
broke in eleven times to ask if I was 
being helped, I was disconnected. 
Repeated calls back netted me 35 
minutes of holding time, four more 
disconnections, and the information 
that the mysterious “РІС manual" 
should have been packed in the box 
containing the interface cartridge. 
Frustrated and angry, I decided to call 
once more. This time, using my jour- 
nalistic credentials, I managed to get 
through to the advertising department 
after a twenty minute wait, where a 
young lady scemed very disappointed 
that I was not interested in buying ten 
more printers at a special bulk rate. 
She was, however, very happy to 
transfer me to a service technician 
who cheerfully explained that 50 
printers were accidentally shipped 
without operating manuals and if I 
would tell him where I purchased my 
printer he would gladly send me a 
manual for $3.95! Not having that in- 
formation at hand, I declined his of- 
fer and inquired about a minor glitch 
with the printer that caused lowercase 
“оз” to drop below the print line in 
any mode other than Near Letter 
Quality. His response was that he had 
no idea why that happened but he 
would get back to me. As of this writ- 
ing, 1 month later, I am still waiting. 

The problem of the missing man- 
ual was eventually solved by open- 
ing up a second interface cartridge 
package and removing the manual 
from there. I was able to run the 
printer through all of its print modes 


and find myself quite impressed with 
it. The Near Letter Quality mode has 
to be seen to be believed! It even ri- 
vals my old Underwood typewriter 
for the quality of its print. 

Though versatile, there are a few 
problems with this printer. Previously 
mentioned was the annoying tendency 
for the lower case "o" to drop slight- 
ly below the print line, causing the 
line to appear ragged and uneven. 
Another glitch occurred when I used 
one of the dip switches on the rear 
of the printer. Supposedly, this switch 
would cause the printer to place a 
backslash (/) through the number 
zero. What actually happens is that 
the zero is replaced with the graphic 
symbol you get when you press the 
Commodore and asterisk keys simul- 
taneously. This is not as big a bug as 
it could be, though, due to the fact 
that in all except NLQ mode the dif- 
ference between the number zero and 
the capital letter “О” is readily appar- 
ent, and most users would not need 
to make use of the offending switch. 
The third problem with this printer 
occurs whenever it is taken offline ог 
runs out of paper. Apparently this 
causes the printer to send a wait com- 
mand over the serial bus that causes 
the suspension of all serial bus op- 
erations until the printer is placed 
back online. I would much rather 
have the printer return a “Device not 
ready" error, due to the fact that most 
decent software will accept such an 
error and suspend printer operations 
without crashing. Suspending serial 
bus operations may lead an inexpe- 
rienced user to the erroneous conclu- 
sion that the computer has "frozen" 
when, in fact, the printer is simply 
out of paper. 

It should also be noted that the 
HomeWriter comes from the factory 
equipped for friction feed only. Us- 
ers who plan to use pin feed paper, 
or plan to print more than one page 
at a time, are advised to purchase the 
optional tractor feed attachment (list 
price $39.95). Printing of a long pro- 
gram or document rapidly becomes 
à chore when you have to stop the 
printer and realign the paper at the 
end of each page. 

While Epson advertises the Home- 


http: 


Writer-10 as having a print speed of 
100 characters per second, this speed 
is available only in draft mode. Other 
modes cause the print speed to drop 
(to as low as 16 cps). 

If Epson were to correct the vari- 
‘ous bugs in this printer, its overall ap- 
pearance and ease of use would make 
it a good value at the list price of 
$299. Commodore owners would 
then be well advised to consider this 
as an alternative to the MPS-801. But 
based on my experience with the Ep- 
son Service Department, I cannot 
recommend this, or any other, Ep- 
son printer until radical changes in 
the company's service organization 
are made. 

Epson America, Inc., 2780 Lomita 
Ave., Torrance, CA 90505 (phone: 
213-539-9140). —B.W. Behling 


MICRO MAIL 
Island Digital Concepts 
Commodore 64 
Disk; $39.95 

Micro Mail is a menu-driven pro- 
gram that allows users to easily cre- 
ate and maintain a mailing list of up 


(IBM) and COPY II MAC (Ma 


Copies half and full tre 


^X м/ соғу. 
ROI 
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We update Сору ЇЇ 64 regularly to 
time for 1/2 pric 


This produc 


` BACKUP | 
| PROTECTED SOFTWARE 


| with COPY II 64" 


From the team who first brought you COPY II PLUS (Apple), COPY II PC 
ntosh) comes a revolutionary new copy 
program for the Commodore 64, COPY II 64! 

* Copies most* protected software — automatically, 

* Copies even protected disks in just 3/2 minutes. 
* Maximum of four disk swaps on a single drive. 
. 


to 720 friends or business contacts. 
Once entered, the list can be searched, 
updated, sorted alphabetically on any 
field, or printed either in a list for- 
mat or on individual mailing labels. 

Once you've formatted a data disk 
to hold the information in your mail- 
ing list, you simply select the 
ENTER RECORDS option from the 
main menu to begin creating your list. 
Unlike some multipurpose database 
programs which require you to cre- 
ate your file format from scratch, Mi- 
cro Mail comes with a predesigned 
mailing list format that is ready to use 
when you begin. It consists of nine 
fields including Last Name, First 
Name, Address, City, State, Zip 
Code, Phone Number, and a special 
*Flag" field that can be used to sep- 
arate friends from business contacts 
for selection purposes. 

Mistakes are no problem to cor- 
rect, either in the entry mode before 
you've filed the record, or by select- 
ing the EDIT MODE from the main 
menu. If you've entered someone's 
zip code incorrectly, for example, you 
just enter the number of the zip code 


* Requires just one 1541 drive on the Commodore 64 


Call M-F 85:30 (W. Coast time) with your ШЕ SP : 503/244-5782. 
Or send a check (add $3 s/h, $8 overseas) to 


ony ENTRAL POINT 
Software, Inc. 
4 539.95 9700 SW Capitol Hwy. #100 
Portland, OR 97219 
ns you as a registered owner may update at any 
^ (To update. just че and 520) 
Hor the pu тдин you to make archival copies only 
Render Service No. 161 mj 
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The 

Master 

Handicapper™ 

Jeries by Professor Jones 


EVALUATES FROM RACING FORM! 


PROGRAM 
GLD. Thoroughbred "Gold" Edition 


A Ful ішіме oroughtrrd anaiyvs бефо 
Sonal and venous noveo 


$159.95 complete 


EGLO, Enhanced “Gold Edition 


AG score Ia a bel тен a ere y 
Master бетт vendes) $199.95 compe 


GLTD. Limited "Gold TW 


Clm 15 
w 


(certains tagais билә!) $299.95 compu 


PA اکلہ‎ 
0. ооа Dog Analysis 


Track Corstens 
Taner 


orent percentage ot winara тыз 


СРР 
$99.95 wer Она Base Management 
NBA, Basket 


LOT. LOTTERY ANALYSIS™ 
a! comparmon program deugned o detect utt patera 


compute w Manus 
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field when prompted and type in the 
correct information. When you're 
done making corrections the new ver- 
sion replaces the old. It's also a sim- 
ple matter to completely remove en- 
tries from your list by using the 
DELETE option. When a record is 
deleted, its old number is reserved for 
the next new entry to your mailing 
list. In this way, the program ensures 
that all 720 available slots will be ap- 
propriated. 

The SEARCH/DISPLAY option 
lets you search your mailing list by 
filling in the Last Name field for the 
person you're trying to locate. If you 
are unsure of the exact spelling, you 
can still find the entry by supplying 
at least the first three letters. Unfor- 
tunately, searches can only be per- 
formed using the Last Name field. 
If you simply want to browse through 
the list without a specific entry in 
mind, you can choose the DISPLAY 
option and specify a starting record 
number. Then, using the function 
keys, you can scroll through the on- 
screen entries or return to the main 
menu. 

Although specific searches can 
only be conducted using the Last 
Name field, SPECIAL LISTS can be 
created using any of the nine avail- 
able fields. You could, for example, 
create a special list of all of the peo- 
ple in your file that have the same 
Specified zip code, or a list of all bus- 
iness contacts if you've used the flag 
field for that purpose. This special list 
feature is not without a few limita- 
tions, however. First, since you can 
only use one field to input list cri- 
teria, there is no way to create a list 
of all business contacts who are lo- 
cated in a given state. Also, each time 
you create a special list, it overwrites 
the previous one. Thus, it is impossi- 
ble to maintain two special lists con- 
currently. 

When it comes time to print your 
mailing list, either in a list format or 
on individual mailing labels, you may 
select to print either the entire file or 
a special list you've created. The en- 
tries can even be sorted alphabetical- 
ly before you print, but here again, 
you must choose only a single field 
to sort on. Consequently, you can't 


sort by last name alphabetically with- 
in zip code or by last name and then, 
when more than one person has the 
same last name, by first name. 

Despite Micro Mails limitations, 
its onscreen menus and well-organ- 
ized documentation make it an excel- 
lent choice for C-64 owners who are 
buying a mailing list program for the 
first time, or anyone who wants a 
mailing list program that can be 
booted and used immediately without 
first reading through a thick user's 
manual. 

Island Digital Concepts, PO. Box 
1758, Staten Island, NY 10314. 


—Bob Guerra 
MASTERDISK 
Integrated-Software Systems 
Commodore 64 
Disk; $34.95 


When my computer was new, and 
I wasn't sure what to do with it, a 
datacassette seemed the perfect 
choice for program storage. Tapes 
then seemed equivalent to disks ex- 
cept for speed. Well, that lasted al- 
most two months. First came the up- 
grade to a disk drive, then the modi- 
fications to the drive to make it even 
faster. 

But with speed came the insatiable 
desire for more programs. Now in a 
half hour, I can skim through sever- 
al programs —admiring graphics ог 
just reading title screens — where once 
I could only load one. The piper de- 
mands his pay: I can't find any par- 
ticular program without a fifteen min- 
ute search. Flipping through piles of 
diskettes has replaced the time my 
datacassette took to load. 

Masterdisk is designed as the cure 
for this disorganization. It is a cata- 
loging program that automatically 
reads the directories from your disks, 
stores them, and allows you to search 
for the location of individual files. If 
you have five disks, Masterdisk will 
not save you any time. But if you have 
fifty, you will soon forget life before 
cataloging. 

"Your disk catalog is stored right on 
the program disk. About 130 disk di- 
rectories will fit before the program 
disk is full; 100 is recommended as 
a cutoff for convenience's sake. For 
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your second 100 disks, you'll have to 
use a copy of Masterdisk for another 
catalog. You might then want to ге- 
organize so games are in the first 100, 
applications are in the second, etc. 

You may be surprised, however, at 
how cataloging will reduce your disk- 
ette use. All those partially typed рго- 
gram listings and experimental data 
files wil be easy to identify. And that 
one favorite program that's backed up. 
eleven times may be deleted from a 
couple of dis 

Masterdisk is actually a set of pro- 
grams that runs from a main menu. 
There are one- and two-drive catalog- 
ing programs. With the one-drive 
program, you'll have to swap out 
Masterdisk for each data disk you 
want to catalog. During cataloging, 
Masterdisk will warn you of disks 
with duplicate ID codes, allow you 
to change those codes, let you delete 
files or erase entire disks, and deter- 
mine the load addresses of machine 
language programs. 

Several different printouts of your 
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catalog will be available. All but one 
can be sent to the screen if you have 
no printer. You can print all disk IDs 
in use; IDs matched to disk names, 
number of files, and number of 
blocks free; or all file names sorted 
alphabetically. If you're trying to fill 
all your precious disks, you can sj 
cify a number of blocks and list all 
disks with more or fewer blocks free. 

Another utility is Disk Changer, 
which lets you display Block Alloca- 
tion Maps (BAM), look at the con- 
tents of any sector, change disk names 
without copying the disk, and “trace” 
through any file sector-by-sector. 
Best, this utility can restore scratched 
files as long as they are not overwrit- 
ten. This single feature can be worth 
the cost of the program. 

The Machine Language Copier 
utility will move any pure machine 
language program from one disk to 
another—no small feat. It can also 
copy individual program, user, or se- 
quential files that are under 100 
blocks long. Last, the Copy 18 util- 
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ity will read the directories of many 
copy-protected disks and write unpro- 
tected directories onto blank disks, al- 
lowing you to make any changes you 
want before cataloging them. This 
may be the only method of includ- 
ing your copy-protected programs in 
the catalog file. 

Included with the program disk is 
a reference card for translating hex, 
ASCII, and decimal values. 

Masterdisk does have two short- 
comings. The manual is a minor in- 
convenience. Its 33 pages are jam- 
packed, solid text. This visual ap- 
pearance is reinforced by the con- 
tents, which vary from basic informa- 
tion to broad assumptions that you 
like printer 
mpossible to 
cover all pos for all printers 
in one manual, but beginners will not 
like parts of these instructions. The 
manufacturer does suggest in the 
manual that the befuddled user call 
with any questions. 

The major deficit in this program 
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is also its biggest asset. Cataloging 
is automatic. You need not, in fact, 
can not, enter a program name manu- 
ally. That name must be on a disk, 
in the directory sectors, and readable 
to Masterdisk. (There is a way around 
this: build a dummy disk directory 
on a separate disk, then use the stan- 
dard RENAME function through the 
DOS to specify whatever filename 
you want to give each file on the 
dummy disk.) You'll sometimes be 
forced through convoluted schemes 
to get copy-protected disk director- 
ies into Masterdisk’s catalog (but at 
least you can get them cataloged). 
And who cares if a game has three 
or four separate files. What I want 
cataloged is the game's name. Mas- 
terdisk would be improved by a rou- 
tine to let the user enter disk IDs and 
file names. Maybe a brief description 
of each file could also be allowed for 
those of us who creatively name ev- 
erything TESTA. 
Integrated-Software Systems, PO. 
Box 1801, Ames, IA 50010 (phone: 
515-233-2992). —Richard Herring 


FORTH-64 
Abacus Software 
Commodore 64 
Disk; $39.95 

FORTH-64 is a computer language 
that lies, in terms of both speed and 
complexity, between BASIC and as- 
sembly language. The original ver- 
sion of FORTH was developed over 
a decade ago by Charles Moore. 
Working in an observatory with a 
third-generation computer, the IBM 
1130, Moore developed what he con- 
sidered to be a fourth generation lan- 
guage—Fourth. But wait, the 1130 
would only accept five-character 
names; and so FORTH was born. 

FORTH found its first home in the 
science and industry communitie: 
Over the last few years, however, 
more and more personal computer 
owners have discovered this language. 
Actually, to call FORTH a mere lan- 
guage is a misnomer. Leo Brodie, in 
his outstanding introductory book 
Starting FORTH, describes FORTH 
as "a high-level language, an assem- 
bly language, an operating system, a 
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set of development tools, and a soft- 
ware design philosophy.” 

As a high-level language FORTH- 
64 results in programs that run much 
faster and are much shorter than рго- 
grams written in BASIC. FORTH 
programs give you, the programmer, 
direct access to all the power of the 
computer. The trade-off is that your 
FORTH programs will require more 
organization and be less readable than 
their BASIC counterparts. 

Using as a benchmark the Sieve of 
Eratosthenes, FORTH executed the 
program in under a minute, while 
BASIC required over ten minutes. 
The FORTH program was about 
three-fourths the size of BASIC's, and 
took about three times as long to 
load. 

Compared to assembly language, 
FORTH is much easier to understand 
and debug. However, FORTH is not 
quite as fast; it carries more over- 
head. A typical FORTH program will 
run one- to two-thirds slower than a 
pure assembly language program. 

As an operating system, FORTH 
performs all the usual functions. It 
assembles, compiles, and interprets 
code and it handles virtual memory, 
input, and output. FORTH's operat- 
ing system is not a separate program, 
so redundancy and much run-time er- 
ror checking are done away with. 
This contributes to FORTH's speed. 
Since FORTH-64 includes an assem- 
bler, those portions of your program 
that are time ci can easily be de- 
bugged in the high-level language, 
then recoded in assembler. 

FORTH-64 is actually a dictionary 
of defined words, or standard com- 
mands, with which you can easily 
build more commands. In other 
words, FORTH is extensible. Except 
for essential words coded in assem- 
bler, FORTH's words are programm- 
ed in FORTH. The definition of each 
word must fit on one FORTH screen; 

16 lines of 64 characters each. Once 
any word is defined, it can be exe- 
cuted by just typing its name. 

Writing small blocks of code like 
this requires you to organize your 
programming, something many of us 
don't do in BASIC. But, FORTH pro- 
gramming is very different from 
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other high-level languages. You will 
find that, in FORTH, even flow 
charts require a non-traditional ap- 
proach, 

he most immediate and striking 
difference between FORTH-64 and 
other languages is that you must code 
all arithmetic operations in Reverse 
Polish Notation (RPN), or postfix no- 
lation. The equation 12 + (5 * 9) 
would appear as 5 9 * 12 +. RPN 
is the result of dealing directly with 
the stack: that part of memory used 
by the CPU to store data in a last-in, 
first-out format. 

Many FORTH commands look 
like familiar BASIC terms or make 
sense because they are English word: 
You will find load, list, if, else, and 
then to be commands similar to 
BASIC’. Other words, like swap, re- 
‚ loop, copy, and move, will 
mi sense in the context of 
ЕОКТНУ programming environment. 

FORTH-64 comes fully equipped 
with sound and hics commands 
to help you use the features of the 
SID and VIC chips in your C-64, The 
dictionary includes words for both hi- 
res and lo-res graphics. Changing 
colors is as easy as typing 
"BLUE SCREEN BROWN PEN.” 
The use of English words, rather than 
POKEing numbers into memory lo- 
cations, is itself enough to convert 


some people from BASIC to FORTH. 


Тһе FORTH Interest Group (FIG) 
has developed a standard called FIG- 
FORTH. Abacus FORTH-64 is 
based on that standard, but includes 
three times as many words in its ba- 
sic vocabulary. Another standard, 
FORTH 79, is completely included 
in FORTH-64, and much of the 
FORTH 83 standard is also included. 


al to describe the features of FORTH- 
64. This manual will not teach you 
FORTH. Two good books on this 
language have been authored by Leo 
Brodie. Starting FORTH, from Pren- 
tice-Hall, an introduction. to 
FORTH suitable for either novices 
seeking to learn about computers or 
professionals who have just been in- 
troduced to FORTH. Thinking 
FORTH discusses some fundamental 
FORTH concepts, traces the devel- 
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opment of a software project, and in- 
cludes interviews with FORTH pro- 
grammers. 

Abacus Software, PO. Box 7211, 
Grand Rapids, MI 49510 (phone: 616- 
241-5510). —Richard Herring 


SPREADSHEET 
Spinnaker Software 
Commodore 64 
Disk; $49.95 
Spreadsheet packs most of the ex- 
pected capabilities of a high-powered 
“what-iffer” into a program that can 
generate spreadsheets up to 250 rows 
by 100 columns. The optional 80-col- 
umn display requires no hardware 
and is legible on a 1702 monitor, 
though on a TV screen the charac- 
ters are more distinguishable in 40- 
column mode. On top of this, you get 
limited word processing and database 
capability plus a slew of unexpected 
features. The main question to ask is 
whether or not they will lighten your 
work load, the object of Spinnaker's 
line of Better Working software. 
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After using the program to set up, 
edit, and experiment with “Shay’s 
Pay” a sample spreadsheet recording 
the millions of dollars I 
ing software for magazini 
Ahoy!, 1 was impressed with Spread- 
sheers comprehensive scope and 
horsepower. Numbers can be display- 
ed in four ways: integer, decimal, 
floating decimal, and bar graphs 
composed of + or — signs. At your 
command you'll find all the standard 
functions and a few rare ones: 12 
mathematical, 5 range (including 
COU, which counts the number of 
numeric entries in a given range), 9 
logical operators, and 4 trigonomet- 
ric functions for the mad scientists in 
audience. There are advanced 
functions such as programmable it- 
eration, Auto Lookup, and an “if” op- 
erator that can be employed effective- 
ly in conjunction with AND, OR, and 
NOT when devising formulas. If 
you're like most people, you're prob- 
ably still wondering about the extent 
of the iu database and word 
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processing capabilities. 

When you type text into any cell 
in a spreadsheet, that cell is referred 
to as a label and is generally used to 
name rows and columns: "january, 
rent For brief amounts of text, 
Spreadsheet has a "long label" mode 
in which you can set the maximum 
width of the text (up to 98 charac- 
nd start typing. The words ini- 
у appear in the entry line at the 
top of the screen. When keyed-in text 
reaches the limit, it is automatically 
word-wrapped to the cell below it to 
produce a left-justified column of 
text. This facilitates adding an explan- 
atory paragraph below a spreadsheet 
without much trouble. With the Word 
command, you set the line width in 
the same fashion but can also speci- 
fy right-justification and adjust mar- 
gins on the sides. Standard cover let- 
ters could be saved as separate 
“spreadsheets” to be customized with 
new names and addresses when 
needed. Of course, you may also 
choose to cobble up a quick letter or 
memo in a blank section of the cur- 
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rent sheet. By setting the range ap- 
propriately, you can use partial print- 
ing to obtain hard copy of the letter 
alone. The main benefit is that you 
don't have to quit the spreadsheet and 
load a word processor. It's handy for 
one- or two-pagers, but not for ex- 
tensive documents. 

There is also potential for build- 
ing databases by filling the rows and 
columns of a sheet with lists of in- 
formation instead of formulas to be 
calculated. One column might hold 
names, the next addresses, and so on. 
The ability to search and sort text and 
numbers makes this feasible, but you 
don't get a true global search. You 
must specify in which of four direc- 
tions from the current cell the search 
will be conducted. (And the AND, 
OR, and NOT operators can't be used 
when searching in this manner). Col- 
umns can be sorted alphabetically or 
numerically, from highest to lowest 
or lowest to highest. 

A practical feature called offset 
loading allows you to load a file into 
a blank sheet at a different position 
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from its original one. Parts of files 
may be saved and loaded by specify- 
ing the so you can use offset 
loading to combine lists, graphs, 
sheets, and text into one document 
This feat doesn't qualify Spreadsheet 
as genuine integrated software, but it 
may be good enough for many peo- 
ple. However, count on investing 
plenty of time and paper to master 
the technique: the 146-page manual 
doesn't provide any info on how to 
apply these features, forcing you 
through the rigors or trial and error. 

A more offbeat feature is automa- 
tic prompting, useful in situations 
where someone else will be punching 
numbers into a spreadsheet they 
didn't create. The person just types 
“Y and the cursor skips to the first 
cell that must be filled in. Written by 
the sheet's architect when setting up 
the auto-prompts, a line of text pops 
up in the entry line and tells exactly 
what kind of data is supposed to be 
entered in that cell. After the indi- 
vidual hits return, the cursor moves 
on to the next cell for which an auto- 
prompt has been set up. There are 
plenty of other practical features. 
Spreadsheet supports two drives, can 
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send true ASCII, has adjustable baud 
rates for working with RS232C print- 
ers, and furnishes a 
that fills a range of 
same character for dra 


ving visually 
pleasing borders and frames. 

The interface is well-designed, for 
you don't have to slog through menus 
or wait for parts of the program to 
load from disk as with Multiplan. 


Most commands are executed with a 
control key or / combination: control- 
f means the next entry is a formula, 
/L means load a document, and so 
on. If you change your mind, you can 
always back out of a command by hit- 
ting f7. Cursor control is superb, per- 
mitting fast movement to any part of 
the sheet or a specific cell. Instead 
of retyping the contents of cells that 
need to be changed, you can use the 
insert and delete keys for editing pur- 
and writeover the existing con- 
desired. The most serious 
drawback is that Spreadsheet won't 
let you delete, insert, or move more 
than one row, column, or line at a 
time. Pressing control-r to repeat an 
insert or delete saves some time, but 
it would have been more efficient if 
the program prompted you to state the 
number of lines or rows to be inserted 
or deleted. 

A “configure” program that is run 
prior to the actual program helps you 
get Spreadsheet working with a wide 
range of printers, change display col- 
ors, and set other parameters. Op- 
tions that you might want to alter f 
quently are accessible from within 
the spreadsheet. The documentation, 
though complete and well-indexed, 
occasionally breaks down with am- 
biguous phrases that may send you 
to the phone to dial Spinnaker's tech- 
nical support number (which is nor 
toll-free). A reference card of com- 
mands and five screens of RAM- 
based online help are also available. 
ited for small businesses 
„ Spreadsheet is worth in- 
igating if you can use one or more 
of its host of unusual features. It's also 
easy enough for a first-timer to learn 
and use the fundamental operations. 

Spinnaker Software, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

—Shay Addams 
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n the first column in this series, I observed that 
there is a one-to-one correlation between assem- 
ind machine language — that for ev- 
п in an assembly language program, 
there's a corresponding instruction that will mean the 
same thing when the program has been converted into 
machine language. 

That's the truth, but now that we're further along in 
our exploration of assembly language, I have to admit 
that it isn't the whole truth. Actually, there are many as- 
sembly language mnemonics (three-letter instructions) 
that have more than one equivalent instruction in ma- 
chine language. That means, of course, that there are 
more instructions in Commodore 64 machine language 
than in Commodore 64 assembly language. 

To understand why this is true апа what it means to 
the assembly language programmer—it is necessary to 
have an understanding of addressing modes, and how they 
are used in 6502/6510 assembly language. 

If an assembly age program is to work correct- 
ly, every statement it contains must be written in a spe- 
cific format. There are 13 such formats in 6502/6510 as- 
sembly language, called addressing modes. Your compu- 
ter processes each statement it encounters in an assem- 


bly language program in accordance with the address- 


ing mode in which the statement is written. Specif 
ly, addressing modes are used to tell a computer how 
to go about accessing information in its memory, and how 
to go about storing that information back in its memory 
ing is completed. 

In this column, we'll examine all 13 of these address- 
ing modes, and observe how they are used in 6502/6510 
assembly language. First, though, let's take a look at the 
eight different ways that one mnemonic —ADC — can be 
converted into machine language; in other words, the 
eight addressing modes that can be used with the 
mnemonic ADC: 


Assembly 
Language Assembly Machine Мо, of 
Addressing Language Language Bytes 
Mode Statement | Equivalent Used 
Immediate ADC #503 69 03 2 
Zero Page ADC #503 65 03 2 
Zero Page.X АОС $03,X 75 03 2 
Absolute ADC $0300 6D 00 03 3 
Absolute, 

Indexed,X АОС $0300,X 70 0003 3 
Absolute, 

IndexedY АОС 50300У 790003 3 
Indexed, 

Indirect ADC (503,Х) 6103 2 
Indirect 

Indexed ADC (S03)Y¥ 71 03 2 
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THE FIRST OF TWO COLUMNS ON 
ASSEMBLY-LANGUAGE ADDRESSING 


THE BIG DIFFERENCE 
You may notice an odd relationship between the as- 
sembly language statements in the second column and 
the machine language equivalents of those statements 
listed in the third column, In Column 2 all eight addre: 
ing modes use the same mnemonic, but each uses a di 
ferent operand. In Column 3 the opposite is true. In Col- 
h instruction is different, but only two oper- 

ands are used: the one-byte operand 03, and the two-byte 
operand 0300 (listed in column three as 00 03 because 
of the peculiar low-| first convention commonly used 
in 6502/6510 assembly language). 

is the most impot Ilustrated by the above 
table: in 6502/6510 machine language, addres 
are distinguished from each other by differences in their 
op codes. But in 6510 assembly language, the 13 avail- 
able addressing modes can be identified by differences 
in their operands. 
Here's a table that illustrates all 13 addressing modes 
in Commodore 64 assembly language: 


THE 6502/6510 CHIP'S 13 ADDRESSING MODES 


Addressing Mode Format 
1. Implicit (Implied) RTS 
2. Accumulator ASL A (ог simply ASL) 
3, Immediate LDA #2 
4. Absolute LDA 502A7 
5. Zero Page STA SFB 
6. Relative BCC LABEL 
7. Absolute Indexed, X LDA $02A7,X 
8. Absolute Indexed Y LDA 502А7У 
9. Zero Раде,Х LDA SFB.X 
10. Zero PageY STX SFBY 
11. Indexed Indirect LDA (SFD,X) 
12, Indirect Indexed LDA (SFD)Y 
13. Indirect JMP 


ADDNRS.SRC REVISITED 

То explain how some of these instructions work, ГЇЇ 
use ADDNRS.SRC, an 8-bit addition routine that you 
may recall from previous columns. Here's a listing of the. 
ADDNRS program, typed as it would appear if it were 
created using the Commodore 64 Macro Assembler. (If 
you own a different assembler/editor, such as the Merlin 
64 or Panther 64, you should be able to alter the program 
1o meet your assembler's demands without too many prob- 
lems. If you're a Merlin 64 owner, it may also help to 
review last month's column, which explained how to type 
and run a program using Merlin.) 


THE ADDNRS SOURCE PROGRAM 
[Commodore 64 Assembler Version] 


10 ; 

20 ;ADDNRS.SRC (AN 8-BIT ADDITION PROGR 
AM) 

30 ; 

40 *=$8000 

50; 

60 ADDNRS CLD ;IMPLIED ADDRESS 
70 CLC ;IMPLIED ADDRESS 

80 LDA #2 ;IMMEDIATE ADDRESS 
90 АПС #2 ;IMMEDIATE ADDRESS 
100 STA $0247 ;ABSOLUTE ADDRESS 
110 RTS ;IMPLIED ADDRESS 


Three addressing modes are used in this sample pro- 
gram, and all three are identified in the comments col- 
umn of the listing. Now let's look at each of the address- 
ing modes that are used in the ADDNRS.SRC program. 


IMPLIED (OR IMPLICIT) ADDRESSING 
Implied addressing is just what its name— well, im- 
plies. In 6502/6510 assembly language, there are a num- 
ber of mnemonics that never require operands (values 
that follow an instruction) because they are complete in- 
structions in themselves. So, when you use the implied 
addressing mode in an assembly language program, all 
you have to type is a three-letter assembly language in- 
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struction; implied addressing does not require (in fact 
does not allow) the use of an operand. 

In the ADDNRS.SRC program, the mnemonics CLD, 
CLC, and RTS are all implied-addressing instruction: 

Op-code mnemonics that can be used in the implicit- 
addressing mode are BRK, CLC, CLD, CLI, CLV, DEX, 
DEY, ІМХ, INY, NOP, PHA, PHP, PLA, PLP, RTI, 
RTS, SEC, SED, SEI, TAX, TAY, TSX, TXA, TXS, and 
TYA. 


IMMEDIATE AND ABSOLUTE 
ADDRESSING 

Immediate addressing and absolute addressing are the 
most common forms of addressing in 6502/6510 assem- 
bly language. In the ADDNRS.SRC program, the state- 
ments LDA #2 and ADC #2 use immediate addressing. 
And the absolute addressing mode is employed in the 
statement STA $02A7. 

It's easy to tell the difference between immediate and 
absolute addressing. In an immediate-addressing state- 
ment, a “#” sign always appears in front of the operand. 
But there is never such a sign before the operand in a 
statement that uses absolute addressing. In the statement 
STA 502А7, which uses absolute addressing, a dollar sign 
does appear before the operand 502А7. But that means 
that $02A7 is a hexadecimal number; it has nothing to 
do with the addressing mode of the statement $02А7, 

Here's the most important difference between immedi- 
ate addressing and absolute addressing: in the immedi- 
ate addressing mode, the operand that follows the 
mnemonic is always interpreted as a literal number. But 
in the absolute address, the operand is always interpreted 
as the address of a memory location. So, in the 
ADDNRS.SRC program, LDA #2 means "load the ас- 
cumulator with the literal number 2" and ADC #2 means 
"add the literal number 2 to the content of the accumu- 
lator, along with a carry.” And the statement STA $02A7 
means "store the content of the accumulator in memory 
register $,02A77 

Instructions that can be used in the immediate address 
mode are ADC, AND, CMP, CPX, CPY, EOR, LDA, 
LDX, LDY, ORA and SBC. 

Mnemonics that can be used in the absolute address- 
ing mode are ADC, AND, ASL, BIT, CMP, CPX, CPY, 
DEC, EOR, INC, JMP, JSR, LDA, LDX, LDY, LSR, 
ORA, ROL, ROR, SBC, STA, STX, and STY. 


ZERO-PAGE ADDRESSING 

Zero-page addressing is used in exactly the same way 
as absolute addressing. The only difference is that the 
operand used in a zero-page address always comes from 
a block of RAM known — logically enough —as Page Zero. 

In the Commodore 64, the addresses of the memory 
locations on Page Zero range from $00 to to SFF. That 
means that any address on Page Zero can be expressed 
as a single byte, rather than in the two-byte form needed 
to express addresses that range from $0100 to $FFFF (ad- 
dresses that do not lie on Page Zero). 

Since Zero-Page addresses can be written so compact- 
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ly, they can save both memory and processing time when 
used in assembly language programs. In fact, as you will 
see shortly, some forms of 6502/6510 addressing require 
that their operands be Zero-Page addresses. 

It's easy to use Zero-Page addressing in an assembly 
language program. If you want to use a zero-page ad- 
dress as an operand, you just write it as a one-byte val- 
ue instead of as a two-byle value. Then, when your as- 
sembler converts the program into machine language, it 
will automatically use the zero-page addressing mode. 

Here's how the ADDNRS.SRC program would look 
if Zero-Page addressing were used instead of absolute 
addressing in Line 100: 


THE ADDNRS SOURCE PROGRAM 
(With Zero-Page Addressing in Line 100) 


10; 
20 ; ADDNRS.. SRC (AN 8-BIT ADDITION PROGR 


"&e$8000 


; 

ADDNRS CLD ;IMPLIED ADDRESS 
CLC ;IMPLIED ADDRESS 

LDA #2 ;IMMEDIATE ADDRESS 
ADC #2 ;IMMEDIATE ADDRESS 
STA $FB ;ZERO-PAGE ADDRESS 
RTS ;IMPLIED ADDRESS 


60 
70 
80 
90 
100 
110 
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Since so many advantages are connected with the 256 
addresses on Page Zero, it won't surprise you to learn 
that Page Zero is the high-rent district in your C-64's 
RAM. It's such a valuable piece of real estate, in fact, 
that the people who designed your computer claimed most 
of Page Zero for themselves. Unfortunately, almost all 
of the RAM space on Page Zero is consumed by your 
computer's operating system, its built-in BASIC interpre- 
ter, and other important utilities, and not much space has 
been left for user-written programs. 

Later on in this series—in a column dedicated specifi- 
cally to memory management —T'll discuss the memory 
space available on Page Zero in more detail. For now, 
the most important fact to remember about Page Zero 
is that it's used in a special form of addressing known 
as Zero-Page addressing. 

Instructions that can be used with zero-page address- 
ing are ADC, AND, ASL, BIT, CMP, CPX, CPY, DEC, 
EOR, INC, LDA, LDX, LDY, LSR, ORA, ROL, ROR, 
SBC, STA, STX, and STY. 


ACCUMULATOR ADDRESSING 

Accumulator Addressing is used in assembly language 
statements that perform functions on values stored in the 
6510 processor's accumulator. Some assemblers require 
that the operand “А” be used in statements which em- 
ploy accumulator addressing. An accumulator-addre: 
ing statement that uses the operand “А” looks like this 


ASL А 


Other assemblers, such as the Merlin 64, will accept 
accumulator-addi i 
operand. An accumulator-addressing statement written 
without an “A” operand looks like this: 


ASL 


When your computer encounters the instruction ASL 
in a program, the instruction will shift each bit in the 
accumulator one bit space to the left, with the leftmost 
bit (Bit 7) dropping into the carry bit of the processor 
status (P) register. 

Other instructions that can be used in the Accumula- 
tor Addressing mode are LSR, ROL, and ROR. 


RELATIVE ADDRESSING 

Relative addressing is an address mode used for a tech- 
nique called conditional branching—a method for in- 
structing a program to jump to a given routine under cer- 
conditions. In assembly language programming, con- 
ditional-branching instructions perform a function simi- 
lar to that of ON...GOTO instructions in BASIC. 

There are eight conditional branching instructions— or 
relative-address mnemonics—in 6502/6510 assembly lan- 
guage. Each begins with "B", which stands for "branch to” 

Examples of the conditional-branching instructions that 
use relative addressing are BBC (branch to a specified 
address if the carry flag is clear), BCS (branch to a spe- 
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cified address if the carry flag is set), BEQ (branch to 
a specified address if the result of an operation is equal 
to zero), and BNE (branch to a specified address if the 
result of an operation is not equal to zero). 

All eight instructions will be described later in thi 
ries, in a column devoted to looping and branching. 


WHAT COMPARISON 
INSTRUCTIONS DO 

The eight comparison mnemonics are often used with 
three other instructions called comparison instruction 
Typically, a comparison instruction is used to compare 
two values with each other, and the conditional branch 
instruction is then used to determine what should be done 
if the comparison turns out in a certain way. 

The three comparison instructions are: CMP, which 
means “compare the number in the accumulator wit! 
CPX, which means “compare the value in the X register 


Conditional branching instructions can also follow 
arithmetic or logical operations, and various kinds of test- 
ing of bits and bytes. 

Usually, a branch instruction causes a program to 


branch off to a specified address if certain conditions are 
met or not met. A branch might be made, for example, 
if one number is larger than another, if the two numbers 
аге equal, or if a certain operation results in a positive, 
negative, or zero value. 

Here's an example of ai 
uses conditional branching 


issembly language routine that 


AN ADDITION PROGRAM WITH ERROR-CHECKING 


50 ; 
60 ADD8BIT LDA #0 
70 STA $02A^ 


80 ; 

90 CLD 

100 CLC 

110 ; 

120 LDA $0247 
130 ADC $0248 
140 BCS ERROR 
150 STA $0249 
160 RTS 

170 ERROR LDA #1 
180 STA $02A^ 
190 RTS 


The above program is an 8-bit addition routine with 
a simple error-checking utility built in. It adds two 8-bit 
values, using absolute addressing. If this calculation re- 
sults in a 16-bit value (a number larger than 255), there 
will be an overflow error in addition, and the carry bit 


of the processor status register will be set. 

If the carry bit is not set, the sum of the values in 502А7 
and $02A8 will be stored in 502А9. If the carry bi 
set, however, this condition will be detected in Line 140, 
and the program will branch to the line labeled ERROR— 
Line 170. 

In this sample program, an error will cause the val- 
ues in Addresses $02A7 and $02A8 not to be added. In- 
stead, a flag the number 1—will be loaded into Mem- 
огу Register 502АА, and the routine will end. 


ABSOLUTE INDEXED ADDRESSING 

An indexed address, like a relative address, is calcu- 
lated by using an offset. But in an indexed address, the 
offset is determined by the current content of the 65105 
X register or Y register. 

A statement containing an indexed address can be writ- 
ten using either of these formats: 


LDA $02A7,X 

or 

LDA 502А7,Ү 

HOW ABSOLUTE INDEXED 
ADDRESSING WORKS 


When indexed addressing is used in an assembly lan- 
guage statement, the contents of either the X register or 
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the Y register (depending upon which index register is 
being used) are added to the address given in the instruc- 
tion to determine the final addi 

Here's an example of a routine that makes use of in- 
dexed addressing. The routine is designed to move byte 
by byte through a string of ASCII characters, storing the 
string in a text buffer. When the string has been stored 
in the buffer, the routine will end. 


A DATA-MOVING PROGRAM 
[Presented as an Example of Indexed Addressing] 


10 
20 
30 ; 

40 TXTBUF-$02A7 
50) EOL=$0D 


DATMOV 


70 ; 

80 %-58000 

90; 

95 ЈМР DATMOV 

96 ; 

100 TEXT .BYTE $54,$41,$4B,$45,$20,$4D, 
545,520 

110 .ВҮТЕ $54,$4F,$20,$59,$4F,$55,$52, 
20 

120 .ВҮТЕ $4C,$45,$41,$44,$45,$52,$21, 
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500 

130; 

140 DATMOV 

150 ; 

160 LDX #0 

170 LOOP LDA TEXT,X 


180 STA TXTBUF,X 
190 СМР #EOL 
20) BEQ FINI 
210 INX 

220 ЈМР LOOP 
230 FINI RTS 

250 .END 


TESTING FOR A CARRIAGE RETURN 
When the program begins, we know that the string ends 
with a carriage return (ASCII $0D), as strings often do 
in Commodore programs. 
^s the program proceeds through the string, it tests 
cach character to see whether it is a carriage return, If 
it isn't, the program moves on to the next character, If 
it is, that means that there are no more characters in the 
string, and the routine ends. 


ZERO-PAGE,X ADDRESSING 

Zero-Page, X addressing is used just like Absolute In- 
dexed,X addressin, However, the address used in the 
Zero-Page,X addressing mode must (logically enough) 
be located on Page Zero. Instructions that can be used 
in the Zero-Page,X addressing mode are ADC, AND, 
ASL, СМР, DEC, EOR, INC, LDA, LDY, LSR, ORA, 
ROL, ROR, SBC, STA, and STY. 


ZERO-PAGE,Y ADDRESSING 
Zero-Page.Y addressing works just like Zero-Pag 
addressing, but can be used with only two mnemon 
LDX and STX. If not for the Zero-Page.Y addressing 
mode, it wouldn't be possible to use absolute ind 
dressing with instructions LDX and STX—and tha 
only reason this addressing mode exists at all. 


INDIRECT ADDRESSING 

There are two subcategories of indexed addressing: in- 
dexed indirect addressing, and indirect indexed address- 
ing. Both are used primarily to look up data stored in 
tables. 

If you think the names of the two addressing modes 
are confusing, you're not the first one with that complaint. 
I never could keep them sorted out myself until I dreamed 
up a little memory trick to help eliminate the confusion. 

Here's the trick: Indexed indirect addressing —which 
has an “X” in the first word of its пате —іѕ an address- 
ing mode that makes use of the 6510 chips X register. 

Indirect indexed addressing —which doesnt have an "X" 
in the first word of its name ~ uses the 65105 Y register. 

In next month's column, we'll look at each of your 
Commodore's two indirect addressing modes — beginning 
with indexed indirect addre 
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А New Monthly Feature for Beginning 
Users of the зч ет 64 


АНН 
"m probably not the only person in the world with 
a complete collection of АЛоу! magazines, but I 
may be the only one who has given them the in- 
depth attention of a writer searching for an article 
idea. To sell a piece to a magazine that prides itself on 
helping Commodore users get the most from their com- 
puters, you'd better have a really original idea. I thought 
Td never come up with something that hadn't been done 
before. On the verge of despair and contemplating a two 
hour ice cream binge, I called the editor with one last 
desperate query. "No, I've already got Morton working 
on that.” (That Kevelson, he gets all the good assignments, 
I mentally complain.) “But we've been thinking about 
starting a beginner's column. Would you be interested?" 
Interested? Me? I was delighted. Being a self-appointed 
apostle of small computers, I always look forward to get- 
ting novices really involved with their computers. Sure, 
it's nice to buy a good software package and learn how 
to run it. But as far as I'm concerned, you aren't compu- 
ter literate until you can use some computer language 
(BASIC, COMAL, PASCAL, or something else) to print. 
a message on the screen, read data off the keyboard, and 
then do something with the information. Doesn't sound 
too tough, does it? You might be surprised at how many 
Apple Macintosh owners will never learn to do it. 

Does that mean this column is going to be devoted only 
to teaching computer language? No! We will touch on 
several different languages, including BASIC. But, I want 
this column to help you derive the maximum benefit from 
the time you spend with your computer. By doing things 
together, we'll get to know the Commodore 64. Expect 
me to refer you to your user manual occasionally, because 
I don't intend to duplicate material found there. 

I also won't recommend trying to program everything 
yourself. Why duplicate the efforts of talented and in- 
genious individuals who are trying to make a living at 
something they do well? If you are like me and value 
your time, you won't want to waste weeks programming 
your own word processor, spreadsheet, or telecommuni- 
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cations program. I consider a week of my time to be 
worth at least $100, so if I spend less than that for a good 
program I feel it's money well spent. Not all programs 
are worth the price on their label, and where possible 
ГЇЇ try to steer you away from “rotten eggs" and toward 
“golden eggs.” So, sometimes this column will help you 
find good software values. 

One thing new owners should plan at the outset is a 
computer budget. Before too long, you'll be looking at 
hordes of software and peripherals you're sure to want. 
Thighly recommend taking a look at your bankbook first. 
Figure out how much you can afford to spend and then 
stay within your limit. 

It's not a bad idea for all the family members to get 
in on the discussion of what you really need. You might 
decide first what peripherals you want to buy and the 
order in which to get them. If you have only a C-64, 
there are usually four peripherals that make a good sys- 
lem: a storage device (usually a cassette player or disk 
drive), a printer, a modem, and an external monitor. The 
order of purchase varies with the users. 

For instance, a family in which students use the Com- 
modore for homework assignments and the parents do 
à lot of word processing might buy a cassette recorder 
(about half the cost of a disk drive) and a printer first. 
Later they might want to upgrade to a disk drive, and 
then finally buy a monitor (so they can reclaim the TV). 

Another family whose members are more comfortable 
with a typewriter might buy a disk drive and modem first. 
If one of the parents wants to use the computer to track 
the stock market, this is an ideal choice. Research using 
online databases is much faster when the information can 
be stored on disk. The computer could still be used to 
research school reports (via online encyclopedias and 
news services) and then typed on the typewriter. A print- 
er and monitor might be purchased later. 

Which peripherals and software to buy should be a fam- 
ily shared decision, if all the members will use the com- 
puter. Plan to spend money on disks or cassettes, paper, 
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software, magazines, and other small items as well. 

То be brutally honest, if all you have is the computer 
(and a storage device) and you don't plan to put any more 
money into it, you might as well stash it in the closet 
or sell it, because you aren't likely to get much use ош. 
of it. Without magazines to get programs from, media 
to store programs оп, or mass market software to run, 
à computer is a useless device. And all these things cost 
money. (Well, we'll pretend “theft” doesn't exist.) 

After money, the biggest stumbling block for most new 
users is programming. Programming isn't as difficult as 
many people think it is. For small or very user specific 
applications, it is probably the best way to go. 

As a learning process, I would highly recommend en- 
tering an Ahoy! program that you would really like to 
use. As you key it in, analyzing what each line is doing 
as you type it, you'll begin to sense patterns. Most pro- 
grams written in BASIC and published in Ahoy! are ac- 
companied by explanations of how they work and what 
each routine does, In fact, Ahoy! may be one of the best 
learning sources you'll find. 

Motivation is the most important factor in learning 
BASIC. Pick something you really want to do; play a 
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game, edit fonts, create a new character set, convert num- 
bers from hexadecimal to octal or decimal. Whatever! 
Then find a program in a book or magazine that does 
what you want. Enter it in and debug it. By the time you 
get that program working properly, you should have a 
much better idea of how to do programming. 

One additional piece of advice here. Get your family 
involved. If you don't have a family, get one! Seriously, 
working together is a big asset to learning. Entering a 
program without help means looking back and forth be- 
tween listing and screen. This can bring on a mean head- 
ache by the time you're through. If one person reads the 
program aloud while the other types, things go much fast- 
er and more is retained. Establishing a pattern of work- 
ing together and sharing the computer will also help you 
avoid family squabbles and "computer widowhood.” 

Reading a book on BASIC isn't a bad way to start. You'll 
have a bit of background to help you understand what 
à program is doing. But until you actually enter à pro- 
gram and debug it, you probably won't know what all 
the hoopla is about. 

Looking through the back issues, I noticed that the 
Rupert Report column has covered just about every as- 


Figure 2: 
Some Commodore 64 Typing Programs 
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25 N. Broadway 

Tarrytown, NY 10591 

Game tutor—prevent space 
ships from shooting you out of 
the sky by typing correct letters, 
etc. Newer version contains both 
QWERTY and DVORAK style 
keyboards. 


Wiztype 

Siorra On-Line 

Sierra On-Line Building 
Coarsegold, CA 93614 

Using the Wizard of Id cartoon 
characters, this program features 
6 modes and 20 levels о! difficul- 
ty. Sprinkled with cartoons, pro- 
gress testing is done by playing 
а game. You can design your 
own tests, 


Type Right 

Commodore 

1200 Wilson Drive 

West Chester, PA 19380 
Features 17 lessons and 4 games. 


Microlype, the Wonderful 
World of Paws 


EduSystems, Inc. 
South-Western Publishing 
5101 Madison Road 
Cincinnati, OH 45227 

Tutor program aimed at children, 
featuring 18 short lessons and а 
cat that does the teaching 
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Keyboard Kadet 
Mindsca 

3444 Dundee Road 
Northbrook, IL 60062 

Similar to a standard typing 
Course with onscreen illustrations 
of hand positions, it also has a 
shootem-up game built in. Foa- 
lures QWERTY and DVORAK 


keyboards. 
9 to 5 Typing 
Е 


рух 
1043 Kiel Court 

Sunnyvale, CA 94089 

Game tutor—game sequences 
from movie 9 to 5 test your pro- 
gress. Multiple levels. 


Keys to Typing. 

Batteries Included 

186 Queen St. West 

Toronto, Ontario 

Canada MSV 121 

Utilizes „traditional classroom 
techniques. 


Type Attack 

Sirius Software 

10364 Rockenham Drive 
Sacramento, CA 95827 
Shoot-em-up type game. 


Typing Tutor Word Invaders 
Aca 


Similar to Mastertype; Space In- 
vaders with words. 
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BEATABLE 


[PERIPHERAL BELIEVE IT! 


SYSTEMS of 
AMERICA кс. 


COMMODORE" 


COMPATIBLE 
PLUS MORE! 


Others may talk, but no one can deliver the features, 
the performance or the compatibility of our remarkable 
С5-1 Disk Drive. Go ahead. Make us prove it! Bring us your 
toughest test, your trickiest problem — if it works on the 1541", 
it will work on the powerful CS-1. But you be the judge . .. 


WE’ RE BETTER. BELIEVE IT! pes es PERE] 


The С$-1 is not only compatible, it goes one step further. "база от Малдасынағы an Рисоз аз сарї, 1985, 
It comes with its own proprietary operating system called 
Q-DOS", which doesn't have the bugs and quirks that exist in the 
1541 DOS. Now, the SAVE function works like it's supposed to. 
Now, you can reduce read errors with a built-in automatic DATA 
ERROR CORRECTION capability .. . and much more! 


ALL THIS, PLUS AN ADDED BONUS! 


Buy a C$-1, and you'll receive the two most popular computer utilities . . . absolutely FREE. 
They include COPY-Q"", the high-speed, single or dual drive copy program that gives you quick and 
easy back-ups. And Q-LOAD", the program that speeds up the loading time on most programs. 
That's almost $100.00 worth of powerful software FREE with your new CS-1 Disk Drive! 


SO GO AHEAD. PUT US TO THE TEST. 


Visit your local computer store today and test drive the new CS-1. You'll like what you see ... 
and Seeing is Believing. 


Peripheral Systems of America 
Products You Can Believe In! 


е Name Of Your Nearest Dealer, , 
For Th res! ler, DEALERS INQUIRIES WELCOME 2526 Manana Road, Suite 209 
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pect of BASIC programming imaginable. Frankly, I don't 
see what else Dale Rupert can find to cover, but I have 
no doubt he'll come up with something. 

In his column on Creating Your Own Games, Orson 
Scott Card has also given many illuminating examples 
of how to write a good program. In addition to explaining 
how to create your own routines, he has included pro- 
gram listings for games that you can modify to suit your- 
Self. In some cases, he even tells how to make the chang- 
es. (A listing of topics Dale and Orson have covered 
through August 1985 is in Figure 1.) 

For those who haven't got a collection of back issues, 
I recommend making the investment. There's a lot of good 
material, including a text editor, disk operating system, 
sprite manipulator, copy program for sequential and ma- 
chine language files, a two column directory lister, font 
editor, and several BASIC programming utilities includ- 
ing an auto line number function, cross referencer, and 
renumber program. 

One very basic skill makes using a computer much 
easier: touch typing. Four years ago, I used the hunt and 
peck method. As with many of you, that short personal 
typing course back in high school taught me what fin- 
gers go where, but that was about all. Practice makes 
proficiency. I now type along at about forty words a min- 
ute. Not terribly fast, but I can almost keep up with my 
thoughts. 

Any good typing tutorial programs will help you im- 


А professional system thats 
аву for anyone to use 


A Complete Low Cost Full 
Syst 


tegrated Program Development 
. That You Can Use To Write And Sell Your Own Programs. 
түше бет 


prove your typing speed. This will make working on the 
C-64 much more fun. Once you no longer have to di- 
rect each finger, things will seem to go much faster. (See 
Figure 2 for a list of some programs currently available.) 

Anyone reading this article already has the most im- 
portant skill needed to learn to use a computer. Reading! 
You'd be surprised how many novice computerists be- 
lieve they have to pay fancy prices for a high school or 
college course to teach them to use a computer. Nothing 
could be further from the truth. I’m living proof. I have 
never taken a course in using a computer, yet I am ac- 
knowledged by more than a few people as being a relative 
expert on the subject. 

How? Books! Magazines! User's manuals! and a lot 
of time spent in front of a computer screen. But it all 
starts with reading. There are many books aimed specifi- 
cally at Commodore users. Books on BASIC, machine, 
assembly, and all kinds of other programming languag- 
es can help you learn much about the internal workings 
of your computer. The best place to start is the Program- 
mers Reference Guide to the Commodore 64. It will def- 
initely be the most useful $20 add-on you can buy for 
the C-64, if you decide to start doing programming. 

Two magazines that I can recommend are /nfo-64 and 
Transactor. The latter is a Canadian publication that runs 
a lot of heavy programming material. /nfo-64 is a more 
general magazine featuring software and hardware reviews, 
new product announcements, and tutorial pieces. (See 
end of column for subscription information.) Needless 
to say, if you don't have a subscription to Ahoy!, you're 
missing the boat. (Pun intended; if you missed it send 
me a self-addressed stamped envelope for an explanation 
or just fake it and laugh hysterically.) 

It doesn't hurt to have someone to talk to when you're 
really stumped, and if you don't mind waiting a bit for 
an answer, you could ask me via a letter to Ahoy! If you 
don't have the time to wait, you should check out your 
local user group. In almost every city in the country, there 
is at least one computer user group. Frequently there's 
even a Commodore group. Lists of local user groups can 
be found periodically in magazines like Ahoy! and month- 
ly in Computer Shopper. A member may have just the 
answer you're looking for. 

You may have to tolerate a few software pirates accost- 
ing you with offers to “trade” programs, but once you 
tell them you haven't got anything they don't already have, 
they'll leave you alone. Many user groups also have public 
domain programs available for next to nothing. 

So, you can see that starting to use a computer doesn't 
have to be a totally overwhelming experience. If you take 
it slow and watch the road ahead, you'll get there in fine 
shape. Just don't try to go too far in one day, and watch 
the speed limit signs. O 
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What Can You Really Do with Your Modem? 


By Sheldon Leemon 


f you aren't quite sure what computer telecommun- 
ications is about, blame Commodore. After all, 
they joined in the wave of telecomputing hype by 
advertising that using their computers as inexpen- 
terminals you could do your homework, your shop- 
ping, your banking, your financial planning, send elec- 
tronical mail, and on and on. With all the publicity sur- 
rounding this fast-growing branch of personal comput- 
ing, it's no wonder some people are confused. Is tele- 
computing the furtive teenage hacker, spending his bleary- 
eyed nights trying to break into computer banks full of 
sensitive information? Is it the all-purpose store, where 
you can shop without ever leaving your easy chair? Is 
it an instantaneous mail service that lets you stop play- 
ing "telephone tag" and get down to business? Or per- 
haps a personalized news clipping service that automa- 
tically directs stories of interest to your attention? Or a 
window on all the information stored in the vast libraries 
of the world? 

Interestingly enough, most of the hype surrounding 
computer communications fails to prominently mention 
its most common application. What computer users pres- 
ently spend most of their modem time doing is communi- 
cating with other computer users. They do this in a num- 
ber of ways. First, there are local bulletin board servic- 
es (BBS's). These services are provided, usually for free, 
either by groups or by fanatic hobbyists who are willing 
to dedicate a whole computer system and phone line to 
the fulltime furtherance of their pastime. One by one, 
users of these boards call in to read and leave messages, 
much like a giant version of the corkboard at the drug- 
store or supermarket. But here, users can often find the 
solution to a puzzling hardware or software problem. 
‘They can also transmit and receive public-domain soft- 
ware via the BBS. The latest in news and software is the 
essence of the BBS's appeal. 

On а larger and more commercial scale are the various 
subscription information utilities. Services like Compu- 
Serve, the Source, and Delphi provide for a fee many 
of the same functions as the local boards, but on a na- 
tionwide basis. By providing local access numbers, these 
services enable users all over the country to dial into a 
central database for the price of a local phone call. Here 
you can find hundreds of messages, and hundreds of pro- 
grams as well, with new additions appearing each day. 
Because these information services are run on big main- 
frame computers, they can handle lots of users at once. 
This means, among other things, that they can provide 
а conferencing facility. Such a facility allows a number 


I 


si 


of users to type messages to one another all at the same 
time, with everything that one user types appearing on 
the screens of all the others simultaneously. This enables 
nationwide "meetings; featuring guest speakers, or on 
the rowdier, less formal side, “СВ simulators.” 

The user-to-user exchange of ideas and of software 
makes up the great bulk of the telecomputing done to- 
day. By itself, such activity provides ample incentive to 
buy a modem and get online, In fact, surveys show that 
computer owners who do get involved with telecomput- 
ing are among the most satisfied with personal comput- 
ing. But what about all those other online activities that 
we've been promised? Let's take a brief look at some of 
the available choices. 


INFORMATION SERVICES 

The promise of up-to-the-minute information accounts 
for much of the excitement associated with online ser- 
vices. The problems so far are ease of use and cost. For 
example, many of the big services such as CompuServe 
and the Source offer news from wire services like UPI 
and AP. A common way of presenting this news is to 
serve it up on menus, which give the reader a choice 
between: 

(1) War rages on between Iran and Iraq 

(2) Progress stalled in nuclear disarmament talks 

(3) Situation tense in Central America 

(4) Detroit Tigers win 20th straight game 

Obviously, only so many news stories can be present- 
ed in this format. By the time you scroll through the menu 
pages, pick a story, and have it transmitted to your com- 
puter, you have expended quite a bit of time, effort, and 
money, and gained little more information than you would 
have by tuning into your local all-news radio station on 
the half hour. 

The developing trend is to add to the value of these 
news services by offering something that a newspaper 
or newscast can't provide. On the Source, for example, 
it is possible to check for all UPI or AP national news 
stories containing the words “Commodore” and “compu- 
ter” The Executive Information Service on CompuServe 
offers a custom “clipping service,” in which the user reg- 
isters the topics in which he is interested, and the ser- 
vice automatically routes such stories into his file-box. 
Another way the information services are beginning to 
provide useful news services is by offering specialized 
news not found elsewhere. For example, CompuServe's 
On-Line Today publication offers daily news on devel- 
opments in the computer and videotex industries. 
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Of course, news forms just a small part of the infor- 
mation available online. Stock quotations are an exam- 
ple that is commonly cited. While it is true that you can 
get current information on stock prices online, unless you 
do a great deal of trading you probably are just as well 
off calling your broker for a quote. In general, online 
financial information tends to be costlier than other ser- 
vices. Here again, added services make the difference. 
The Source has instituted a new program in association 
with Spear Securities which not only lets you get quotes, 
but actually trade stocks online. It will also automati- 
cally track the value of your portfolio. The Dow Jon 
News Service offers software that performs sophistica- 
ted stock analysis using figures that are downloaded from 
their service to your computer automatically, but such 
software is geared mainly toward the IBM PC, and none 
is available for Commodore products. Besides, gen- 
erally much more expensive to download such data than 
to acquire it offline from companies such as Value Line, 
which furnishes the information on disk. 

Another frequently touted category of information avail- 
able online is airline schedules. The Official Airline 
Guide offers complete scheduling and fare information, 
and, unlike some proprietary systems used by travel agents, 
it doesn't "slant" listings towards one particular airline, 
and so allows the user to find the lowest available fare. 
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While the savings could be substantial if you discover 
a little-known discount fare, the service itself is not cheap, 
and at any rate is not one that most people would have 
occasion to use very often. Recently, CompuServe has 
added a service which allows you to make reservations 
directly while online. This enhances the value of the 
schedule and fare information, since it removes the need 
to log off and call an agent for reservations. Still, a sys- 
tem where you make the arrangements yourself and pay 
(by the minute) for the privilege of doing so is hardly 
a match for the services of a competent travel agent. 

One final area of information services that we will look 
at is the online encyclopedia. Many services offer Gro- 
liers Academic American Encyclopedia online, in vari- 
ous formats. Some versions allow you to search only for 
titles of articles, while others allow you to actually search 
for key phi within articles, and references to other 
articles, The latter versions can be even more useful than 
the print ion of the encyclopedia. Unfortunately, one 
encyclopedia is often not enough. When the user can 
Choose between many such references online, the service 
will be much more useful. 


TRANSACTING BUSINESS ONLINE 

In this category are services such as online shopping, 
travel, and stock brokerage. While the potential for such 
services is great, they are for the most part in their 
infancy. A good example is online banking. Many of the 
large national banks like the Bank of America have started 
intensive pilot programs for online banking, allowing us- 
ers to check their bank balances, make automati 
fers from their checking account to pay their Visa bills 
and charge accounts at large chain stores like Sears and 
make periodic payments (such as mortgage and car) auto- 
matically every month. Still, such programs really don't 
have enough features to offer yet to offset the service 
charge, which usually runs in the neighborhood of ten 
dollars a month. While it can replace much of the check- 
writing that an individual does, most people don't write 
all that many checks. And it cannot help at all with the 
kinds of cash transactions that most people conduct at 
banks. In the future, perhaps the banks will offer addi- 
tional services, such as tracking all of your income and 
expenditures automatically in the same way that person- 
al finance software does. As for now, however, their on- 
line services are of limited interes 

Much the same can be said of online shopping. Al- 
most every major service offers some form of onli 
shopping, and the variety of goods and services avai 
able online is staggering. Nonetheless, the promised con- 
venience just is not there. Most systems are fairly clumsy 
1o use, and offer no greater discounts than can be gotten 
either through local discount houses or mail-order houses 
with WATS lines. While such systems could be expected 
to attract the same sort of shoppers who buy through cat- 
alogs, here the catalog has no pictures, and you pay to 
read it. So except for real bargain hunters, people who 
live far from heavily populated areas, or shoppers look- 
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ing for rare items that are difficult to locate, these ser- 
vices are of limited usefulness. 


ENTERTAINMENT 

On most systems, that translates out to games. The ma- 
jor general-interest information services all offer the tra- 
ditional computer games like chess, Hunt the Wumpus, 
Adventure, etc. But most Commodore users will find 
much better games available at their local software stores 
for a lot less money. The one area in which these ser- 
vices can offer something that stand-alone software can't 
is in multiplayer games, in which many users participate 


at once. The only information service which really takes 
advantage of this facet of computer entertainment is Com- 
puServe, which offers multiplayer space-war and fantasy 


ames. These games are 
atures, 

Does all of this mean that telecomputing is just a worth- 
less scam? Of course not. While it may not be the ulti- 
mate activity it is sometimes made out to be, it is still 
one of the fastest growing and most fascinating aspects 
of personal computing. The real message that I hope to 
convey is that though there are a number of different as- 


among the system's most popular 


pects to telecomputing, not every one is right for every- 
body. The new user should not feel compelled to try ev- 
ery service offered all at once, and then become frus- 
trated because it smt whitened his teeth or improved 
his love life. If y ге a beginner, you will find that the 
local bulletin ie or special interest group on Com- 
puServe or Delphi will provide lots of exciting informa- 
tion and (almost) free software. As your experience in 
telecomputing expands, and as the various services ma- 
ture, you will surely find other areas that will be of in- 
terest to you, and you will be ready for them. There is 
such a wide variety of online services available that you 
will be able to tailor your telecomputing activity to suit 
your needs. 

As for the more experienced readers, do you agree or 
disagree with this column? Is there any special telecom- 
puting activity you especially enjoy that you feel I've 
slighted, or left out entirely? Keep in touch. 


Sheldon Leemon 
CompuServe ID 72705,1355 
Source BBX878 
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Wayne Notife (Brooklyn, NY) 
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John Moscow (Bronx, NY 
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6-8 on WNYC AM83) 


S Small 


Amy Russo (New York, NY) 


Call us the modern way— 


on Ahoy!’s Bulletin Board System! 


If your computer is equipped with а modem, you can сай Ahoy/s Bulletin Board System any hour 
of the day, any day of the week to exchange electronic mail with other Commodore users or download 
files like the following: 


* Editorial calend 
upcoming issue 


ar for 


* Corrections to programs 
and articles 


* Program disk and 
subscription information 


* Excerpts from future edi 
tions of Scuttlebutt 


* Detailed descriptions 
of back issues 


* Classified 
advertising 


Set your modem for 300 baud, full duplex, no parity, 1 stop bit, 8-bit word length, and dial away! 


System Configuration of Ahoy! Bulletin Board System: 


Commodore 64 
Commodore Internatioral 
1200 Wilson Driva. 

West Choster, PA 19380. 
Phone: 215-431-9100 


MSD 50-2 Dual Disk Drive 
MSO Systems, inc 

10031 Monroe Street - Ste. 206 
Dallas, TX 75229 

Phone: 214-357-4434 


Mitey Мо Auto Modem Sakata SC-100 Color Monitor 
Sakata U.S.A. Corporation 

651 Bonnie Lane 

Elk Grove Vilage, IL 60007 

Phone: 312-593-3217 


8800 N.W. 36th Street 
Mami, FL 33178. 
Phone: 305 594-1000 


Brsban 
Phone. 415-468-4900 


СА 94005. 


Vision BBS уаз Superstand | Uni-Koo! C-100. 


Computer Pad Computer Stands #5933 & 064 
ison Sofware Со A Wo of Plate, s Union mae Proves, Ine. © Roy Seating Composter ^ 
PO Bor 53a 2535 Unted Lane 9 Witamson Loop 53 Borger өлен PO Box 753 

Bron NY 10461 EN Grove Vilage, IL 6o07 Grants Pass. OR 97628 Мен Newton WA O2165 Cameron, ТХ 78520 


Phone: 212-629-1538 Phone’ 312-860-2525 Phone: 503-476-1660 Phone: 617-954-8370. Phone: 817-607-6421 


CALL TODAY: 718-383-8909 
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By David Barron, Morton Kevelson, and Michael Davila 


Enclosed is the program that I 
typed right out of the Simons’ BASIC 
instruction booklet. When I run it on 
either my 64 or my SX-64, it displays 
the sprites but it eats up the program 
too. What gives? — Michael Daniels 

CAFB, SC 


Michael, 

Simons’ BASIC stores the sprite 
data in two areas of memory. The first 
extends from 2048 through 4095. The 
second is from 8192 through 16383. 
See the DESIGN command in the 
manual to learn how you may choose 
the storage location for sprites. The 
program you sent, from chapter eight 
in the Simons’ BASIC manual, uses 
the first of these areas, which hap- 
pens to coincide with the start of 
BASICS program storage. The follow- 
ing will move the start of BASIC up 
to 4096: 


10 DISKETTES 


FREE, C-20 CASSETTES 


^ subscription to the ‘Cassette of the 
Month’ gets you a tape or disk full of 10 
quality Commodore 64 programs deliv- 
өгөй to you by first class mail every month. 
included will help you 

ike ‘Word Processor,’ 

ie Sd enjoy great 
aterpillar 


ge like кА 
Е AS 50 CENTS 


us FOR AS 


CA Limited offer Subscribe oca year 
on cassette and receive 20 Free C-20 cas- 
settes or subscribe 2 а year on disk and 
receive 10 n 5% single sided double 
dei кейе: 


# Wevebeen nbusresskt шел Res aos 4% 
verihreeyearsacqumng Oresets ADO S100 ното 
ж Over 4000 satished color #75100 snye sum. 
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POKEA4 , 16: POKE4096,0:NEW 


The first POKE changes the ad- 
dress for the start of BASIC. The sec- 
ond POKE puts a zero in the first lo- 
cation. This is required by the BASIC 
interpreter. These POKES will reserve 
two kilobytes for sprite data storage, 
while protecting your program from 
being overwritten by the sprite rou- 
tines in Simons BASIC. These com- 
mands must be executed before 
LOADing the program, The penalty, 
of course, is the loss of two kilobytes 
from BASIC memory. 


I bought a 64 last August and right 
now am getting into hi-res (bit 
mapped) graphics. ГА like to know 
if the 64 is capable of printing text 
and display bit mapped graphics at 
the same time. — Orlando Gonzalez 

Bronx, NY 


Orlando, 

It is not possible to mix the text and 
graphics (bit map) modes on the 64. 
One simple way around this is to 
write a routine that will place text on 
the bit map by reading the proper 
codes from the character generator 
ROM. This is simple to do, and will 
display characters identical to the 
standard character set on the 64. 


Several months ago I bought a 
Sears TV/Monitor (catalog 
#57H4084C) for use with my C-64. 
It has three operating modes: televi- 
sion, monitor (audio/video using 
RCA input jacks), and RGB monitor 
(with RGB style plug). I used the five 
pin, two plug monitor cable to con- 
nect my 64 to the monitor. 

This arrangement worked fine for 
playing games, but problems arose 
when I started using a terminal em- 
ulator that uses 80 columns on the 
64. Its extremely hard to decipher 
characters positioned close together 
in this 80-column mode. I thought 
this was because of the 64's limited 


graphics, but when a co-worker ran 
the same terminal emulator on his 
C-64 and 1702 monitor, the difference 
in clarity was astounding. 

The manufacturer states that the 
TV/Monitor supports 80 columns in 
RGB mode, but says nothing about 
the audio/video mode. Is there any 
way to achieve the resolution of the 
Commodore monitor on my monitor? 
Is there any way to convert the Com- 
modore audio/video signal to an RGB 
signal? —Sean Flynn 

West Simsbury, CT 


Sean, 

Unfortunately, you are presently 
using the best means available, Even 
though your monitor has provisions 
for an RGB input, the C-64 does not 
have an RGB output. The 8-pin cable 
provides a separation of the video sig- 
nal into its chroma and luminance 
components. This can only be taken 
advantage of by Commodore moni- 
tors to provide greater clarity. There 
is no feeble way to split a standard 
video signal into its RGB compo- 
nents, 


I have just purchased my fourth is- 
sue of Ahoy! THANK YOU! Your 
magazine is the best source of info 
for me and my C-64. But I have a 
problem. I like to type in and save 
the programs you list, and it would 
be simpler to do so if I could use the 
Bug Repellent program, When I run 
it all I get is ? QUANTITY ERROR 
IN 5000". Please straighten me out. 

—Larry McCann 
Cincinnati, OH 


Dear Crooked, 

The problem is not being caused 
by line 5000, but by the data state- 
ments in your program. What most 
likely caused the error is that you 
typed a number larger than 255 with- 
in the data lines. I would suggest 
checking your data statements to cor- 
rect the problem. 


PROGRAM LISTINGS 


Attention new Ahoy! readers! You must read the following information very 
carefully prior to typing in programs listed in Ahoy! Certain Commodore 
characters, commands, and strings of characters and commands will appear in 
a special format. Follow the instructions and listing guide on this page. 


f n the following pages you'll find several pro- 
grams that you can enter on your Commo- 
dore computer. But before doing so, read this 
entire page carefully. 

То insure clear reproductions, АЛоу/% program listings 
are generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Com- 
modore programs. These are therefore represented by 
various codes enclosed in brackets | ]. For example: the 
SHIFT CLR/HOME command is represented onscreen 
by a heart Тһе code we use in our listings is 
[CLEAR]. The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODORE and 
SHIFT characters. On the front of most keys are two sym- 
bols. The symbol on the left is obtained by pressing that 
key while holding down the COMMODORE key; the 
symbol on the right, by pressing that ing 
down the SHIFT key. COMMODORE 


and SHIFT J by [s J]. 

Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left com- 
mands in a row, [5 “Із ЕР") would be 5 SHIFTed En- 
glish Pounds, and so on. Multiple blank spaces will be 
noted in similar fashion: e.g., 22 spaces as [22 " "]. 

Sometimes you'll find a program line that's too long 
for the computer to accept (C-64 lines are a maximum 
of 80 characters, or 2 screen lines long; VIC 20 lines, 
à maximum of 88 characters, or 4 screen lines). To en- 
ter these lines, refer to the BASIC Command Abbrevia- 
tions Appendix in your User Manual. 

On the next page you'll find our Bug Repellent pro- 
grams for the VIC 20 and C-64. The version appropri- 
ate for your machine will help you proofread our pro- 
grams after you type them. (Please note: the Bug Repel- 
lent line codes that follow each pro; ine, i 
whited-out area, should nor be typed in. See the instruc- 
tions preceding each program.) 


acters are represented in our listings by a lower-case "s" Also on the following page you will find Flankspeed, 
or "t" followed by the symbol of the key you must hit. our ML entry program, and instructions on its use. О 
COMMODORE J, for example, is represented by [c J], Call Ahoy! at 212-239-0855 with any problems. 
When You Ма Yu 
Yu See ЖОТА You Туре Se Yiu See и Means You Type МШ See 
CLEAR] Serven Clear surr стоме Бі [BLACK] Black CNTRE 1 a 
[HOME] Home cixmome БЕ [WHITE] White amo [B 
UP] Cursor Up smer сені El [RED] Red emo B 
[DOWN] Curar Down + сик F m [CYAN] Con cma HK 
LEFT] Cursor Left SHIFT URSI и [PURPLE] Purple сути. 5 B 
RIGHT] Cursor Right ecse ЕШ [GREEN] Green сут! 6 
[SS] Shiled Space SHIFT Space W (BLUE) нше em; Ы 
INSERT] Insert SHIFT INST DEL [YELLOW] Yaim oms ii 
DEL] Delete INST/DEL n [F1] Fonction 1 n m 
RVSON] Reverse On СУТКІ, 9 [R] [F2] Function 2 sm n E 
[RVSOFF] Reverse Off сута. ө Ш [r3 Fonction 3 n B 
[UPARROW] арлан D Ж [F4] Function 4 sur on Ы 
BACKARROW] ње Arm - Ж [rs] Function 5 rs WE 
[PI] м т f [r6] Function 6 sur rs E 
EP] English Pound t Æ [r7] Function 7 7 
[F8] Function 8 sur oco ЖШ 
AHOY! 87 
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IMPORTANT! _ 2155 оп зіме background are Bug Repellent ine codes Do not enter them! This and the preceding explain hese 
codes and provide other essential information on entering Ahoy! programs. Read these pages before entering programs. 


BUG REPELLENT огы occur. LIST cach line. spot the errors. and correct 


This program will let you debug any Ahoy! program. Follow in- :5000 FORK=49152T049488: READY : POKEX, Y: NEXT : END GJ 
structions for VIC 20 (cassette or disk) or C-64. *5001 DATA32,161,192,165,43,133,251,165,44,133 DL 
VIC 20 VERSION *5002 DATA252,160,0,132,254,32,37,193,234,177 DB 

By Michael Kleinert i *5003 DATA251,208,3,76,138,192,230,251,208,2 ОЕ 
у,Міспаві Кееп ала Ром Ботоп а т2з76 2,0607 KN 
eel ере е рога. *5005 DATA35,32,0,169,35,160,192,32,30,171 CA 


type RUN 63000|RETURN]SYS S28[RETURN]. If you typed the 


(itu ы К *5006 DATA160,0,177,251,170,230,251,208,2,230 CE 
program properly, it will generate a set of two-letter line codes that НАЗЫ ала DEC ДЕ АШЫ 
will match those listed to the right of the respective program lines. +5007 DATA252,177,251,32,205,189,169,58,32,210 JE 
Once you've got a working Bug Repellent, type in the program «5008 DATA255,169,0,133,253,230,254,32,37,193 CL 
you wish to check. Save it and type the RUN and SYS commands +5009 DATA234,165,253,160,0,76,13,193,133,253 NB 
listed above once again, then compare the line codes generated to +5019 DATAL77,251, 208,237,165, 253,41,240, 74,74 MB 
those listed in the magazine. If you spot a discrepancy. a typing +5011 DATA74,74,24,105,65,32,210,255,165,253 ЕР 
error exists in that line. Important: you must use exactly the same +5012 DATA41,15,24,105,65,32,210,255,169,13 GH 
spacing as the program in the magazine. Due to memory limitations +5013 DATA32, 220,192, 230,63, 208,2,230,64,230 АМ 
ES ENIG РН will register an error if your *5014 ПАТА251,208,2,230,252,76,11,192,169,153 NG 
acing varies from wl . +5015 DATA160,192,32,30,171,166,63,165,64,76 BF 
Mire r E RON OW orai (O1 DATA231,192,96, 76,73,18, 68,83,5832", E 
Repellent ee P ibas e *5017 DATA0,169,247,160,192,32,30,171,169,3 РЈ 
When your program has been disinfected you may delete all lines +518 DATA133,254,32,228,255,201,83,240,6,201 FK 
from 63000 on. (Be sure the program you type doesn’t include lines 15019 DATABO,208,245,230,254,32,210,255,169,4. FL 
above 63000!) :5020 ПАТА166,254,160,255,32,186,255,169,0,133 CL 
For disk: enter Bug Repellent, save it, and type RUN:NEW +5021 DATA63,133,64,133,2,32,189,255,32,192 СС 
(RETURNITA US ет RUE RUNS 828. UE step m Aen n 
о pause the line codes listing, press SHIFT. 550 2,210,255,173,141,2,41,1,208, 
To send the list to the printer type OPEN 4,4:CMD 4:SYS +5024 DATA96, 32,205,189, 169,13,32,219,255,32 IM 
SIS[RETURN]. When the cursor comes back, type *5025 DATA204,255,169,4,76,195,255,147,83,67 КС 
PRINT#4:CLOSE 4{RETURN]. +5026 DATA82, 69,69, 78,32, 79,82,32,80,82 DC 


*63000 FORX=828T01023:READY:POKEX,Y:NEXT:END АС +527 DATA73,78,84,69,82,32,63,32,0,76 ML 
«63001 DATA169,0,133,63,133,64,165,43,133,251 JL +5028 DATA44,193,234,177,251,201,32,240,6,138 GN 
*63002 DATA165,44,133,252,160,0,132,254,32,228 DF +5029 DATA113,251,69,254,170,138,76,88,192,0 ЈК 
*63003 DATA3,234,177,251,208,3,76,208,3,230 ОЕ +5030 DATAO,0,0,230,251,208,2,230,252,96 NA 
*63004 DATA251,208,2,230,252,169,244,160,3,32 OH +5031 DATAL70,177,251,201,34,208,6,165,2,73 ІМ 
*63005 DATA30,203,160,0,177,251,170,230,251,20 *5032 DATA255,133,2,165,2,208,218,177,251,201 ЈА 
8 KO +5033 DATA32,208,212,198,254,76,29,193,0,169 ЕМ 
«63006 DATA2,230,252,177,251,32,205,221,169,58 JJ +5034 DATA13,76,210,255,0,0,0 PA 
*63007 DATA32,210,255,169,0,133,253,230,254,32 ОК 

+63008 DATA228,3,234,165,253,160,0,170,177,251 LG г 
«63009 DATA201,32,240,6,138,113,251,69,254,170 ВР PLANKS PIELD FORTHEC.64 
+63010 DATA138, 133, 253,177,251, 208,226,165, 253 By Gordon F. Wheat 

“1 DD. Flankspeed will allow you to enter machine language Ahoy! pro: 
+63011 DATA240,74,74,74,75,24,105,65,32,210 ЕК шот» without any mistakes, Once you have typed the program in. 
«63012 DATA255,165,253,41,15,24,105,65,32,210 FO e M for future use. While entering an ML program with 
+63013 DATA255,169,13,32,210,255,173,141,2,41 PK Куе! there is no neod to enter spa 1 retum. 
-63014 DATAL,208,249,230,63,208,2,230,64,230 СВ This ix all donc automatically. If you make an error MEER bell 
163015 DATA251,208,2,230,252,76,74,3,160,236 КН "hane Ld (isis 
*63016 DATA160,3,32,30,203,166,63,165,64,32 DP ite ; 


may be used aller 


*63017 DATA205,221,169,13,32,210,255,96,230,25 " and ending addresses have been entered. 
1 EL have entered so f 
*63018 DATA208,2,230,252,96,0,76,73,78,69 OI ram. Bec ол previously х 
“63019 DATA83,58,32,0,76,73,78,69,32,35 ЕС 15-То continue on а line you stopped on after LOADing in the 
«63020 DATA32,0,0,0,0,0 LE previously saved work. 

17 — Scans through the program to locate a particular line. or to find 


C-64 VERSION ‘out where you stopped the last time you entered the program. 17 


temporarily freezes the output as well 


By Michael Kleinert and David Barron 5 POKES3280,12:POKES3281,11 - 
‘Type in. SAVE, and RUN the Bug Repellent. Type NEW. then А rf нн 
дуре in or LOAD the Ahoy! program you wish to check. When that's iones: (CLEAR) Іс B][RVSON][15 ТЕТЕ 
RENE your program (don't RUN it!) and type SYS 49152 “10 PRINT"[RVSON][5" "IMISTAKEPROOF ML ENTRY A 
То pause the listing depress and hold the SHIFT key ROGRAM[6" "| o MC 
Compare the codes your machine generates to the codes listed +15 PRINT"[RVSON][9" "]CREATED BY G. F. WHEAT[ 
to the right of the respective program lines. If you spot a difference. quM DM 
ап error exists in that line. Jot down the number of lines where +20 PRINT"[RVSON][3" "]COPR. 1984, ION INTERNA 
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TIONAL INC.[3" "]" DH 
230 FORA=54272T054296: POKEA ,O: NEXT 1M 
:40 РОКЕ54272,4:Р0КЕ54273,48:Р0КЕ54277,0:РОКЕ5 

4278,249:Р0КЕ54206,15 NH 
+7) FORA=689T0699: READB: POKEA , B: NEXT KO 


*75 DATA169,251,166,253,164,254,32,216,255,96 HJ 
“76 DATA169,0,166,251,164,252,32,213,255,96 JB 
+8) B$="STARTING ADDRESS IN HEX":GOSUB2019:AD= 
B:SR=B 

«85 GOSUB2520: ТЕВ=(ТНЕМ80 

«86 POKE251,T(4)4T(3)*16:POKE252,T(2)4T(1)*16 
*9() B$="ENDING ADDRESS ІМ НЕХ":0051/82010: EN=B 
«95 GOSUB2510: IFB-UTHENBO 

+96 POKE254,T(2)*T(1)*16: BST(4)414T(3)*16 

*97 IFB>255THENB=B-255 ; POKE254 , PEEK(254)+1 

*98 POKE253,B:PRINT 

*100 REM СЕТ HEX LINE IL 
+110 GOSUB3010:PRINT": [c P][LEFT]"; : FORA-(/TOB FG 


+120 FORB=(/T01 :GOTO210 MD 
+125 NEXTB ME 
«130 AX(A)eT(1)&T(U)*16:IFADHA-l«ENTHEN31O LH 
+135 PRINT" [c P][LEFT. IK 
+14) NEXTA:TeAD-(INT(AD/256)*256):PRINT" " — PD 
1150 FORA=OTO7: T=T+A2(A):IPT>25STHENT=T-255 — LK 
:160 NEXT. IA 
+170 TFA%(8)<>TTHENGOSUB1O19:GOTO110 FK 


+180 FORAOTO7 : POREAD4A , AZ (A) : NEXT: AD=AD+8:GOT 


0110 MN 
“200 REM GET AB 
*210 GETA$:IFA$=' но 
“211 ІҒАб-СНВ5(20)ТНЕУ270 GC 
*212 IFA$=CHR$(133)THEN4900 MD 
*213 ІҒАб-СНВ9(134)ТНЕМ4100 КЕ 
*214 IFA$=CHR$(135)THENPRINT" GE 
*215 IFAS=CHR$(136)THENPRINT" BJ 
“220 IFA$»"G'ANDASC"G'THENT(B)sASC(A$)-55:GOTO 
250 GM 
1230 TFA$>"/"ANDA$<": "THENT(B)=ASC(A$)-48:GOTO 

) LE 
*24() GOSUB1100:GOTO216 LL 
*250 PRINTAS"[c P][LEFT]"; OA 
*260 GOTO125 CG 
«270 IFA>OTHEN280 ОР 
«272 А--1:1ЕВ-1ТНЕМ290 OB 
«274 GOTO140 CJ 
«280) IFB=(THENPRINTCHRS$ (20) ; CHR$(20) ; :A=A-1 HG 
*285 А-А-1 BE 
:290 PRINTCHR$(20) ; :GOTO14( KH 
*30( REM LAST LINE AD 
*310 PRINT" ":T2AD-(INT(AD/256)*256) GJ 
+320 FORB=TOA-1:T=T+A%(B):IFT>255THENT=T-255 РІ, 
“330 NEXT IA 
+340 IFAZ(A) 2 TTHENGOSUB1010: GOTO116 КЕ 
+35) FORB=(TOA-1 : POKEAD+B, A%(B) :NEXT HN 
+36) PRINT:PRINT"YOU ARE FINISHED!":GOTO49090 ОХ 
*1000 REM BELL AND ERROR MESSAGES FL 
+1010 PRINT:PRINT"LINE ENTERED INCORRECTLY":PR 
INT:GOTOl1100 DH 
*1020 PRINT:PRINT"INPUT A 4 DIGIT HEX VALUE!": 
60701100 ЈА 
1030 PRINT:PRINT"ENDING IS LESS THAN STARTING 
['":В=0:60Т01100 
*1040 PRINT:PRINT"ADDRESS NOT WITHIN аорта 


RANGE!" : В=0:С0Т01100 


+1050 PRINT:PRINT"NOT ZERO PAGE OR ROM!":B=(: d 
0701100 


KN 


talia.net 


:1060 RROR IN 5АУЕ":60701100 EI 

+1070 RROR IN LOAD":GOTOl106 GL 
4-1080 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 

+1100 POKES4276,17:POKE54276,16:RETURN 

+120) OPEN15,8,15:INPUT#15,A,A$: 


$: RETURN 

+2000 REM СЕТ FOUR DIGIT HEX 
+2010 PRINT:PRINTB$; : INPUTTS 
+202) IFLEN(T$)<>4THENGOSUB1920:GOTO2010 
+2040 FORA=1T04:A$=MID$(T$,A,1) :GOSUB2060: ШО, 
A)=16THENGOSUB1920;GOTO2019 

+2050 NEXT: SIT CN ORO 
T(4) :RETURN GF 
+2060 IFA$>"@"ANDAS<"G"THENT(A)=ASC(A$)-55:RET E 
URN 


“2070 IFA$>' IENT(A) eASC(A$)-48: RET 

URN KP. 
+2080) T(A)216: RETURN NP. 
+2500 REM ADRESS CHECK LI 
+2510 IFAD>ENTHEN1030 MI 
*2515 ІЕВ<5ЕОЕВ>ЕМТНЕМ1040 MG. 


*2520 IFB<2560R(B>49969ANDB<49152)ORB>53247THE 
№1050 MI 
+2530 RETURN ІМ 
*3000 REM ADDRESS TO HEX EB. 
“3010 АС-АП:А-4096:6051/83070 HG 
+3020 A25! 50830700 СЕ 
“3030 A=16:GOSUB3070 PN 
"ЗОД A«1:GO0SUB3070 MJ 
*3060 RETURN IM 
"3070 T=INT(AC/A):IFT>9THENA$=CHR$(T+55) :GOTO3 
090 CJ 
+3080 А$=СНЕ$(Т+48) JP 
“3090 PRINTA$;:AC=AC-A*T; RETURN AC 
4000 ASS PISAVES*" : GOSUBA200 м 
+405) OPEN1,T,1,A$:SYS680:CLOSE1 LH 
+4060 IFST=OTHENEND EO. 
*4070 GOSUBLO6:IFT=8THENGOSUB1200 FJ 
+4080 GOTOAOQ0 FF, 
*4100 A$z'**LOAD**" : GOSUB4200 AB. 
*4156 OPEN1,T,%,A$:SYS690:CLOSE1 MF 
*4160 ТЕ5Т-64ТНЕМ110 JH 
+4170 GOSUB1070: IFT«8THENGOSUBI200 м 
۰4180 FO 
+4200 PRINT" ":PRINTTAB(14)A$ FG. 
*4210 PRINT:A$="": INPUT"FILENAME" ; A$ OM 
*4215 IFA$=""THEN4210 GF 
+4220 PRINT:PRINT"TAPE OR DISK?":PRINT DF 
+4230 GETB$:T=1:IFB$="D"THENT=8: A$s"@0:"+A$:RE 
TURN IG 
+5240 ТЕВ5<>"Т"ТНЕМ4230 FN 
*425() RETURN IM 
24207 B$="CONTINUE FROM ADDRESS" :GOSUB2010: AD 
DK 
+4510 GOSUB2515:IFBe(THENA4560 МА 
+4520 РЕІКТ:С0Т0110 01 
+4700 BS$="BEGIN SCAN АТ ADDRESS": GOSUB2010: AD= 
B FH 
+4705 GOSUB2515: IFBsOTHENA700 NK 
+4706 PRINT:GOT04740 DI 
+4710 FORB-(TO7: AC=PEEK(AD+B) :GOSUB3030: IFAD+B 
=ENTHENAD=S] SUB1080:GOT0110 BK 
*4715 PRINT" ";:NEXTB EC. 
+4720 PRINT: AD=AD+8 GN 
+4730 GETB$: IFB$-CHR$(136)THEN110. MN 
+4740 GOSUB3010: PRINT" JD. 
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2 соның +140 PRINT"PEOPLE HAVE THE SAME BIRTHDAY" AN 
Falling Needles & +150 PRINT JJ 
Shared Birthdays с: +160 GOTO 30 01 

+200 РЕ=1 НМ 
FROM PAGE 53 NEEDLES  -210 FOR NP=1 TO 366 EP 
+1 REM JD +22) PF-PF*(367-NP)/366 DA 
42 REM -- NEEDLES — EE +239 PRINT " PEOPLE ="NP; co 
"3 REM RUPERT REPORT #20 OJ +240 PRINT "[3" "]Z PROB. =" (1-PF)*100 ІВ 
+4 REM JD +245 REM COUNT # OF LINES LISTED (NL) АС 
+10 REM - SIMULATE THE BUFFON NEEDLE DC -250 NL=NL+1 : IF NL«20 THEN 290 GD 
+11 REM EXPERIMENT. DROP NEEDLES OF GI +260 М=0 1B 
+12 REM LENGTH L ON FLOORBOARDS OF GP +270 PRINT "PRESS ANY KEY FOR MORE[3"."]" LE 
-13 REM WIDTH Н. SUCCESS IF NEEDLE ОЈ >280 GET X$:IF X$-"" THEN 280 JH 
+14 REM LANDS ON A CRACK. PROBABILITY МО +290 NEXT TA 
+15 REM OF LANDING ON A CRACK IS DC 
-16 REM — (2*L)/(H*PI) DL BIRTHDAY SIMULATOR 
417 REM JD -1 REM JD 
*20 Hel :L=H :TRIES=1 :WINSel :Ke2*L/H КЕ +2 REM -- BIRTHDAY SIMULATOR -- BK 
*30 PRINT CHR$(147)TAB(12)"« TRIES" NF +3 REM RUPERT REPORT #20 0J 
*4( PRINT TAB(12)"« PI" AJ +4 REM JD 
*50 PRINT TAB(12)"< AVG" DG +10 REM — SIMULATE GROUPS OF PEOPLE WITH GN 
*60. YO-H*RND(O) GN -11 REM RANDOMLY CHOSEN BIRTHDAYS. CL 
*70. A-RND(()*30000 MP ‘12 REM EACH GROUP CONTAINS 'NUMP' DH 
*80. Y=LASIN(A)+YO IG +13 REM PEOPLE. BDAY(X) IS THE DN 
+90 ТЕ Y>H OR Ү<0 THEN WINS=WINS+1 JG -14 REM BIRTHDAY (1-366) OF THE XTH Ор 
+100 PI-K*TRIES/WINS NC -15 REM PERSON. CI(X) IS THE COUNT OF HP 
4110 TTL=TTL+PI : AVG=TTL/TRIES KE -16 REM НОМ MANY PEOPLE IN THE GROUP DL 
+120 PRINT CHR$(19)TRIES : PRINT PI EH +17 REM HAVE DAY X AS THEIR BIRTHDAY. LI 
+130 PRINT AVG HM -18 REM  SUCCESS-l IF TWO PEOPLE IN ос 
+140 TRIES=TRIES+1 MN +19 REM ONE GROUP HAVE THE SAME co 
+150 GOTO 60 PG «20 REM BIRTHDAY. BO 
+21 REM JD 
BIRTHDAY CALC -30 NUMP=24 :ВЕМ << CHANGE THIS MJ 
+1 REM JD +40 DIM BDAY(NUMP),CT(366) LJ 
+2 REM -- BIRTHDAY CALC -- ML +50 GROUP=1 TH 
+3 REM RUPERT REPORT #20 OJ «60 SUCCESS=0 РН 
+4 REM JD +65 REM - RESET COUNT OF USED BIRTHDAYS РР 
+10 REM — CALCULATE THE PROBABILITY CK +70 FOR PERSN=1 TO NUMP 0G 
«11 REM THAT FOR A GROUP OF NP PEOPLE ЕО +80 CT(BDAY(PERSN))=0 : NEXT IE 
+12 REM ТМО OR MORE OF THEM WERE BORN МР -85 REM — CHOOSE EACH PERSON'S BIRTHDAY ND 
-13 REM ON THE SAME DAY OF THE YEAR ОК +90) FOR PERSN=1 TO NUMP 0G 
-14 REM JD +100 DAY-INT(366*RND(0))41 BK 
:20 PRINT CHR$(147) FG +110 BDAY(PERSN)=DAY JK 
+30 PRINT "HOW MANY PEOPLE ARE IN THE ROO +120 CT(DAY)=CT(DAY)+1 PB 
M" PRINT" (ENTER 0 FOR COMPLETE LIST)" КІ 2130 NEXT PERSN AA 
«40 INPUT NP CC +135 REM - CHECK FOR DUPLICATES NK 
+50 IF NP<=0 OR INT(NP)ONP THEN 200 BG +149 FOR PERSN=1 TO NUMP 0G 
+60 PF=1 :КЕМ PROBABILITY OF FAILURE DM +150 IF CT(BDAY(PERSN))<2 THEN 180 NP 
*70 FOR 0-1 TO NP AL 160 SUCCESS=1 PG 
:80 PF=(367-Q)*PF/366 : NEXT JC -170 PERSN-NUMP IE 
+90) PS=1-PF :REM PROBABILITY OF SUCCESS IL +180 NEXT PERSN AA 
+100 PRINT JJ «190 IF SUCCESS=1 THEN TTL=TTL+1 LK 
+119 РВІМТ"ІМ A GROUP OF" NP "PEOPLE," КЕ +200 PRINT GROUP"GROUPS[4" "]"; AM 
+120 PRINT"THERE IS A" PS*100 "PERCENT" CG -210 PRINT TTL*100/GROUP"Z SUCCESS" 0B 
+130 PRINT"PROBABILITY THAT TWO OR MORE" KG +220 GROUP=GROUP+1 : GOTO 60 ок 
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VIC 20 BUG REPELLENT LINE CODES FOR FALLING NEEDLES AND SHARED BIRTHDAYS 


NEEDLES BIRTHDAY CALC BIRTHDAY SIMULATOR 

#1: JD #14: AE #1: JD #40: CH # 160:0M|#1: JD #19: CG 

# GN #15: AJ #2: LC 4 50: LK # 200:HM | # OD #20: BA 
#3: AD # 16: BE #3: PN # 60: KL # 210:DJ | # 
#4: JD #17: JD #4: JD # 70: PO # 220:DA | & 
# 10: FH # 20: IE # 10: MI # 80: JF # 230:08 | 
#11: EG # 30: HM # 11: EE #90: AD # 240:ҒЕ |% 
#12: OK # 40: OB #12: IP £ 100:JJ # 245:MB | # 
# 13: #13: IF # 110:НН # 250:MP |% 
#14: JD # 120:0H # 260:IB | 4 
3 20: FB # 130:0E # 270:JO | # 
# 30: # 140:GD # 280:KA | # 
# 150:JJ # 290:1A | # 

# 100: ВК 


Sputter Pop Hiss Chop Fla 
Crush Slurp Mash din 


FROM PAGE 18 SIMPLE GUNSHOT (C-64) 

“1 REM SOUND EFFECTS 

*2 REM SIMPLE GUNSHOT 

*3 REM (NOTE THAT LINES 100 AND ABOVE ARE 
"SUPPORT"--LINES 20-9( MAKE THE SOUND) KA 

*10 GOSUB 900:GOTO 100 10 

*20 POKE AD(1),5:POKE SR(1),0:POKE FL(1), 


CA 
JJ 


30:POKE FH(1),30 LH 
*30 POKE VL,15:PRINT "." CJ 
“40 POKE GT(1),129 KC 


“50 FOR I=) TO 59:NEXT JC 
*60 POKE GT(1),0 CF 
“90 RETURN IM 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
IS PRESSED ко 
+100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
-110 IF PEEK(653)-0 THEN 110 GL 


*120 GOSUB 20:GOTO 100 

*898 REM ROUTINE TO SET UP VARIABLES 

+899 REM SET UP SOUND CONTROL ADDRESSES 
+90) FL(0)254272:FH(0)-54273:GT(0)-54276: 
А0(0)=54277:58(0)=54278 

"905 FOR 1=1 TO 2:X=1*7:FL(I)=FL(9)+X:FH( 
T)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(9)+X МС 


LD 


*906 SR(I)SSR(0)4X:NEXT BE 
+909 REM SET VOLUME ADDRESS GJ 
*910 VL-54296 FN 
:990 RETURN IM 


HELICOPTER BLADES (C-64) 
*1 REM SOUND EFFECTS 
*2 REM HELICOPTER BLADES 
*3 REM HUMMING SOUND IN VOICE 0 SUGGESTS 
YOU ARE IN HELICOPTER 
*4 REM TO HEAR MORE DISTANT CHOPPER, REMO 
VE ":РОКЕ GT(0),17" FROM LINE 40 
*10 GOSUB 900:GOTO 100 
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CA 
cD 


LB 


ML 
IO 


“20 FOR І-1 TO 2:POKE AD(I),48:POKE SR(I) 
,16:МЕХТ:РОКЕ FH(1),20:POKE ЕН(2),40 BC 
“25 ЕСКЕ AD(0),34:POKE SR(0),49:POKE ЕН(0 
),10 LD 
+30 POKE VL,15:PRINT "PRESS SHIFT TO STOP 
SOUND" 
*4() POKE GT(1),129:POKE GT(2),129:POKE GT 
(0),17 КЕ 
“50 FOR І-10 TO 220 STEP 70:POKE FH(1),I: 
POKE FH(2),I:NEXT NP 
*60 POKE GT(1),0:POKE GT(2),0:POKE GT(0), 
0:IF РЕЕК(653)=0 THEN 40 IM 
*70 IF PEEK(653)<>0 THEN 70 
*9() RETURN 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 


oc 


AK 
IM 


IS PRESSED K 
+100 PRINT "PRESS SHIFT TO HEAR SOUND" OL 
+110 IF PEEK(653)-0 THEN 110 GL 
*120 GOSUB 20:GOTO 100 EI 
+898 REM ROUTINE TO SET UP VARIABLES AJ 
*899 REM SET UP SOUND CONTROL ADDRESSES LB 


*900 FL(0)254272:FH(0)254273:GT(0)954276: 
AD(9)=54277:SR(0)=54278 LD 
+905 FOR І-1 TO 2:X=I*7:FL(1)=FL(0)+X:FH( 


І)=ЕН(0)+Х:6Т(1)=6Т(0)+Х:Ар(1)=Ар(0)+Х МС 
“906 5Е(І)-5Е(0)%Х:МЕХТ ВЕ 
“909 REM SET VOLUME ADDRESS GJ 
*910 VL=54296 FN 
“990 RETURN IM 

SAWING WOOD (C-64) 
“1 REM SOUND EFFECTS СА 
+2 REM SAWING WOOD LE 


*10 GOSUB 900:GOTO 100 
*20 FOR І-1 TO 2:POKE Ар(І),0 :POKE SR(I) 
,243:NEXT JN 
*25 POKE AD(0),64:POKE SR(0),66 IH 
*30 POKE FH(1),255:POKE FH(2),12 :POKE FH 
(0),200 GD 
*35 POKE VL,15:PRINT "." CJ 
*40 POKE GT(1),129:POKE GT(2),129:POKE GT 


http: 


(0),21 

*45 FOR I= TO 7:POKE VL,5:POKE VL,15:FOR 
X= TO INT(4*RND(9)) : NEXT: NEXT 

+5) FOR 1=15 TO 0 STEP-1:POKE VL,I:NEXT 

*55 FOR I=1 ТО 15:POKE VL,I:FOR X=) TO 3: 


KK 


NEXT:NEXT AK 
*60 FOR I=) TO 2:POKE GT(I),0:NEXT KA 
+90 RETURN м 


*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED ко 
"100 PRINT "PRESS SHIFT TO HEAR SOUND"; 
*110 IF РЕЕК(653)-0 THEN 110 


*120 GOSUB 20:GOTO 100 EI 
*898 REM ROUTINE TO SET UP VARIABLES AJ 
*899 REM SET UP SOUND CONTROL ADDRESSES LB 


*900 ҒІ.(0)-54272:ЕН(0)-54273:67(0)-54276: 
AD(0)254277:SR(0)254278 Li 
*905 FOR І=1 TO 2:X=I*7:FL(I)=FL(9)+X:FH( 

I)=FH(0)+X:GT(1)=GT(0)+X:AD(I)=AD(9)+X MG 


*906 SR(I)=SR(0)+X:NEXT BE 
*909 REM SET VOLUME ADDRESS 61 
*910 VL-54296 FN 
“990 RETURN IM 


SPACE GUNSHOT (C-64) 
*1 REM SOUND EFFECTS CA 
*2 REM "SPACE" GUNSHOT LE 
:10 GOSUB 900:GOTO 100 IO 
+2 POKE AD(1),5:POKE SR(1),53:POKE FL(1) 

,30:РОКЕ ЕН(1),30 РЈ 


www.oldgam 


italia.net, 


+10 GOSUB 900:GOTO 100 

+20 POKE AD(1),160:POKE SR(1),255:POKE FL 
(1),30:POKE FH(1),30 

aoe AD(2),15:POKE SR(2),0:POKE то) 

0 

*30 РОКЕ VL,15:PRINT "PRESS RUNSTOP/RESTO ". 
RE TO STOP" вс 
+35 РОКЕ GT(1),129 KC 
+40 POKE GT(2),129:FOR 1-255 TO 100 STEP 
=(1+INT(3*RND(9))):POKE ЕН(1),1 

+50 Xe44INT(I/23):IF X>15 THEN Х-15 

+55 POKE VL,X:FOR X= TO 29:NEXT:NEXT:POK 
E GT(2),0 

+60 FOR 1-100 TO 255 STEP 8+INT(10*RND(9) 


10 
AF 


LE 
DA 


):POKE FH(1),I FD 
+70 X=4+INT(I/23):IF X>15 THEN Х-15 DA 
D +75 POKE VL,X:FOR X= TO 19:NEXT:NEXT EA 
+80 GOTO 40 PE 
*9( RETURN IM 
+99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
IS PRESSED ко 
+100 PRINT "PRESS SHIFT TO HEAR SOUND" OL 
+110 IF PEEK(653)-0 THEN 110 GL 
*120 GOSUB 20:GOTO 100 EI 
*898 REM ROUTINE TO SET UP VARIABLES AJ 
*899 REM SET UP SOUND CONTROL ADDRESSES LB 


+90) ҒІ(0)-54272:ЕН(0)-54273:67(0)-54276: 
AD(9)=54277:SR(0)=54278 LD 
+905 FOR І-1 TO 2:XeI*7:FL(I)-FL(0)4X:FH( 

I) =FH(0)+X:GT(1)=GT(0)+X:AD(I)=AD(9)+X MG 


25 POKE AD(0),5:POKE SR(0),53 :POKE ЕН(0 +906 SR(I)=SR(0)+X:NEXT BE 
),250 NG +909 REM SET VOLUME ADDRESS GJ 
30 POKE VL,15:PRINT "." CJ *910 VL=54296 FN 
+40) POKE Gr, 129: FOR. І-0 TO 29:NEXT:POK *990 RETURN IM 
E GT(0),17 AG 

*5( FOR 1=225 TO 25 STEP -25:POKE FH(0),I BOINK (C-64) 
:FOR Х=0 TO 19:NEXT:NEXT JJ «1 REM SOUND EFFECTS CA 
«60 РОКЕ GT(1),0:POKE GT(0),0 ID +2 REM "BOINK" FF 
*9() RETURN IM .10 GOSUB 900:GOTO 100 IO 


*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
IS PRESSED ко 

+100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 

+110 IF РЕЕК(653)=0 THEN 110 GL 

*120 GOSUB 20:GOTO 100 

«898 REM ROUTINE TO SET UP VARIABLES 

*899 REM SET UP SOUND CONTROL ADDRESSES 

:900 FL(0)254272:FH(0)254273:GT(0)254276: 
AD(0)254277:SR(0)-54278 

*905 FOR І-1 TO-2:XeI*7:FL(I)-FL(0)4X:FH( 
I) =FH(G)4+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X 

*906 SR(I)=SR(0)+X:NEXT 

+909 REM SET VOLUME ADDRESS 

*910 VL=54296 

*990 RETURN 


LD 


MG 
BE 
GJ 
FN 
IM 


SEASHORE (C-64) 
CA 
PL 


*1 REM SOUND EFFECTS 
*2 REM SEASHORE 


AHOY! 


*20 POKE AD(1),5:POKE SR(1),21:POKE БАР 
,30:РОКЕ ЕН(1),30 
-25 POKE AD(0),5:POKE SR(0),53 :РОКЕ mo 
),25 LJ 
*30 POKE VL,15:PRINT "." CJ 
“40 POKE cra), 129: FOR I= TO 29:NEXT:POK 
E GT(0),17 AG 
+50 FOR 1=25 TO 250 STEP 25:POKE ЕН(0),1: 
FOR Х= TO 14:NEXT:NEXT AD 
*60 POKE GT(1),0:POKE GT(0),0 ID 
+90 RETURN IM 
+99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
IS PRESSED KO 
+100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
«110 IF PEEK(653)=0 THEN 110 GL 


*120 GOSUB 20:GOTO 100 EI 
-898 REM ROUTINE TO SET UP VARIABLES AJ 
+899 REM SET UP SOUND CONTROL ADDRESSES LB 


*900 Ғ1(0)-54272:ЕН(0)-54273:6Т7(0)-54276: 
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AD(9)=54277:SR(0)=54278 
*905-FOR I=1 TO 2:X-I*7:FL(I)-FL(0)4X:FH( 
T)=FH(9)+X:GT(1)=GT(9)+X:AD(I)=AD(9)+X МС 


LD 


*906 SR(I)=SR(0)+X:NEXT BE 
"909 REM SET VOLUME ADDRESS GJ 
*910 VL=54296 FN 
+990 RETURN IM 


COMPLEX GUNSHOT (C-64) 


“1 REM SOUND EFFECTS 

*2 REM COMPLEX GUNSHOT 

*3 REM (NOTE THAT LINES 100 AND ABOVE ARE 
"SUPPORT"--LINES 20-90 MAKE THE SOUND) KA 

*10 GOSUB 900:GOTO 100 IO 

*20 POKE AD(1), R ZOER, SR(1),53:POKE E. 
,30:POKE FH(1),3! 

25 POKE AD(0),5: 55 SR(0),53 :POKE mo 

),250 NG 

*30 POKE VL,15:PRINT "." 

*40 POKE GT(1),129:FOR I= TO 29:NEXT:POK 

E GT(0),17 AG 

*50 FOR 1=225 TO 25 STEP -25:POKE FH(0),I 
EXT LF 


CA 
ХА 


CJ 


*60 POKE GT(1),0:POKE GT(0),0 ID 
"90 RETURN ІМ 
*99 REM ROUTINE ТО PLAY SOUNDS WHEN SHIFT 
IS PRESSED ко 
*100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
*110 IF PEEK(653)-0 THEN 110 GL 
"120 GOSUB 20:GOTO 100 EI 
*898 REM ROUTINE TO SET UP VARIABLES AJ 


*899 REM SET UP SOUND CONTROL ADDRESSES LB 
*90) ЕІ.(0)-54272:ЕН(0)-54273:07(0)-54276: 


AD(0)254277:8R(0)254278 LD 
*905 FOR I=] TO 2:X=1*7:FL(1)=FL(0)+X:FH( 

T)=FH()+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X МС 
*906 SR(I)=SR(9)+X:NEXT BE 
*909 REM SET VOLUME ADDRESS GJ 
*910 VL=54296 FN 
*990 RETURN IM 


GUNSHOT (VIC 20) 
“1 REM SOUND EFFECTS OF 
*2 REM GUNSHOT (VIC VERSION) GJ 
“10 GOSUB 900:GOTO 100 JL 
*20 POKE FR(0),0:POKE FR(1),0:POKE FR(2), 
0:РОКЕ FR(3),115 0 
“30 POKE VL,15:PRINT "." 
*45 FOR I=15 TO 0 STEP -1:РОКЕ VL,I:POKE 


AM 


FR(3) ,P(7043*1) : NEXT NO 
*60 FOR I=) TO 2:POKE FR(I),0:NEXT LJ 
“90 RETURN ІМ 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 


IS PRESSED FN 
*100 PRINT "PRESS SHIFT"; 
“110 IF PEEK(653)-0 THEN 110 
*120 GOSUB 20:GOTO 100 
“898 REM ROUTINE TO SET UP VARIABLES 


*899 REM SET UP SOUND CONTROL ADDRESSES CF 
*906 DIM FR(3),P(127) BI 
"910 FR(0)-36874:FOR 1-1 TO 3:FR(I)-FR(I- 


1)+1:МЕХТ BC 
*920 FOR I= TO 127:P(I)=1+128:NEXT IC 
*929 REM SET VOLUME ADDRESS GI 
+930 VL-36878 GP 
:990 RETURN IM 


HELICOPTER (VIC 20) 
“1 REM SOUND EFFECTS OF 
*2 REM HELICOPTER (VIC VERSION) 
“10 GOSUB 900:GOTO 100 JL 
*20 POKE FR(0),0:POKE FR(1),0:POKE FR(2), 
0:РОКЕ FR(3),P(50) EP 


GH 


*30 POKE VL,0 КЕ 
"40 FOR І-0 TO 15:POKE VL,I:NEXT DG 
*45 FOR І=0 TO 2:NEXT FI 
*50 POKE FR(3),60:FOR І-15 TO 0 STEP-1:PO 

KE VL,I:NEXT GB 
“60 FOR I= TO 3:POKE FR(I),0:NEXT NE 


"90 RETURN IM 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
FN 


IS PRESSED 
*100 PRINT "PRESS SHIFT TO STOP" KK 
*110 PRINT".";:IF PEEK(653)>0 THEN END LI 
*120 GOSUB 20:GOTO 110 EP 
*898 REM ROUTINE TO SET UP VARIABLES JF 


+899 REM SET UP SOUND CONTROL ADDRESSES СЕ 
+900 DIM FR(3),P(127) BI 
+910 FR(G)=36874:FOR Iel TO 3:FR(I)-FR(I- 

1)41:NEXT BC 


+92) FOR I= TO 127:P(I)=1+128:NEXT IC 

*929 REM SET VOLUME ADDRESS GI 

+930 VL-36878 GP 

*990 RETURN IM 
SPACE GUNSHOT (VIC zom 

“1 REM SOUND EFFECTS 

*2 REM SPACE GUNSHOT (VIC VERSION) Ир 


*10 GOSUB 900:60Т0 100 JL 
*20 POKE FR(0),0:POKE FR(1),0:POKE FR(2), 
О:РОКЕ FR(3),115 OB 
“30 PRINT "." AI 
*45 FOR I=15 TO 0 STEP -1.5:POKE VL,I:X-P 
(7043*1):POKE FR(3),X 

*50 POKE FR(0),450-X:NEXT:POKE FR(3),0 РН 
*55 FOR I-1 TO 9 STEP 3:POKE VL,I:NEXT ВК 
*60 FOR I=) TO 3:POKE FR(I),0:NEXT 
+90 RETURN IM 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 


IS PRESSED FN 
:100 PRINT "PRESS SHIFT"; PD 
*110 IF PEEK(653)-0 THEN 110 GF 


“120 GOSUB 20:GOTO 100 EK 
“898 REM ROUTINE TO SET UP VARIABLES 

+899 REM SET UP SOUND CONTROL ADDRESSES 
*900 DIM FR(3),P(127) BI 
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“910 FR(9)=36874:FOR 1=1 TO 3:FR(I)-FR(I- 


Letters on white background are Bug Repellent line codes. Do not enter them! Pages 87 and 88 explain these codes 
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“899 REM SET UP SOUND CONTROL ADDRESSES СЕ 


1)+1:МЕХТ BC +90) DIM FR(3),P(127) BI 
*920 FOR I=) TO 127:Р(І)=1+128:МЕХТ ІС +910 FR(0)236874:FOR I=1 TO 3:FR(I)-FR(I- 
*929 REM SET VOLUME ADDRESS GI 1)+1:NEXT BC 
+930 VL=36878 GP ‘920 FOR I= TO 127:Р(1)=1+128:МЕХТ IC 
+990 RETURN IM +929 REM SET VOLUME ADDRESS GI 
*930 VL=36878 GP 
“990 RETURN м 


BOINK (VIC 20) 
+1 REM SOUND EFFECTS о 
*2 REM BOINK (VIC VERSION) KH 
+10 GOSUB 900:GOTO 100 JL 
+20 POKE FR(0),P(20):POKE FR(1),0:POKE FR 
(2),0:POKE FR(3),P(20) EL 
+30 PRINT "." 
-40 FOR I=15 TO 0 STEP -1:РОКЕ VL,I:NEXT: 
POKE FR(3),0 со 
*50 FOR I=1 TO 15 STEP 2:POKE FR(0),P(100 
+I) :POKE VL,I:NEXT сї 
*60 FOR I= TO 3:POKE FR(I),0:NEXT:POKE V 
1,0 
:90 RETURN 
+99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 


AI 


HL 
IM 


IS PRESSED FN 
*100 PRINT "PRESS SHIFT"; PD 
+110 IF PEEK(653)-0 THEN 110 GF 
*120 GOSUB 20:GOTO 100 EK 
*898 REM ROUTINE TO SET UP VARIABLES JF 
*899 REM SET UP SOUND CONTROL ADDRESSES CF 
*900 DIM FR(3),P(127) BI 
*910 FR(0)236874:FOR І-1 TO 3:FR(I)=FR(I- 

1)+1:NEXT BC 
+924 FOR I=) TO 127:Р(І)=1+128:МЕХТ Ic 
*929 REM SET VOLUME ADDRESS GI 
+930 VL=36878 GP 
“990 RETURN IM 


SAWING WOOD (VIC Co en 

*1 REM SOUND EFFECTS 
*2 REM SAWING WOOD (VIC VERSION) 
*10 GOSUB 900:GOTO 100 JI 
*20 POKE FR(0),P(0):POKE FR(1),0:POKE FR( 
2),0:POKE FR(3),20 
*30 POKE VL,15:PRINT "." 
*45 FOR І-0 TO 5:POKE VL, 5:POKE VL,15:FOR 

X=) TO INT(3*RND(9)):NEXT:NEXT FD 
“50 FOR 1=15 TO 0 STEP-1:POKE VL,I:NEXT Кр 
*55 FOR І-1 TO 15:POKE VL,I:FOR Х-/) TO 2: 


NEXT:NEXT FP 


“60 FOR I=) TO 2:POKE FR(I),0:NEXT LJ 
+90 RETURN IM 
*99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 
IS PRESSED FN 
*100 PRINT "PRESS SHIFT"; PD 
“110 IF PEEK(653)=0 THEN 110 GF 
*120 GOSUB 20:GOTO 100 EK 
“898 REM ROUTINE TO SET UP VARIABLES JF 
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SOUND-A-RAMA 


FROM PAGE 27 

+30) PRINT" [CLEAR ]"SPC(14)"[RVSON ]SOUND-A- 
RAMA[RVSOFF |" AB 
*40 PRINT" [DOWNJIF YOU'RE USING THE DOS W 
EDGE, PLEASE[3" "]DISABLE IT BY ENTERING 
e" MK 
«50 PRINTSPC(18)" [DOWN ]@Q" ME 
+60 PRINT"[DOWN]THIS WILL MAKE THE PROGRA 

M RUN FASTER." AA 
*70 PRINT" [DOWN JTHEN ENTER":PRINTSPC(15)" 
(DOWN JRUN 110" IJ 


“80 END IC 
*100 REM SOUND-A-RAMA BY BRUCE BARTLETT 
OCT. 1984 LP. 
*110 GOTO 1520 ЕМ 
4120 REM ***COMPUTER ТАРЕ RECORDER--MAIN 
LOOP OF 
“130 GETC$(N):IFC$(N)=""THEN 130 FG 


*140 IFC$(N)="P"THENTFN>UNTHENPRINT" [CLEA 
R] [DOWN ] (WHITE ]PLAYING(3"."]":M=N:POKES+ 
4,16:N=1:GOTO 180 

+150 IFC$(N)="M"THENRUNI1O 

+16) POKES+F,XT:D(N-UN)=TI:TI$="[6"0"]":P 
OKES4F, SE: POKES+UN , TN*VAL(C$(N)) 

*170 N=N+UN:GOTO 130 PL 
+180 POKES+F, SE:POKES+UN , TN*VAL(C$(N)): FO 


DJ 
LC 


RT=UNTOTT*D(N) : NEXT: POKES+F, XT IE 
on +190 N=N+UN: IFN-MTHENRUN1860 JJ 
L -200 GOTO 180 CN 
+210 REM ***DRUM MACHINE--MAIN LOOP*** НО 
ND +220 GETA$ AL 
AM +230 IFA$-"M'THENPOKE650, 0: RUN116 HB 


*246 ONVAL(A$)GOTO 270, 300, 330, 360, 39 


0, 420 EI 
*250 GOTO 220 BM 
*260 REM ***HI НАТ*** сс 
+270 POKEFU, TF: POKEFL, TF: POKEAD, FV: POKESR 
,FV KE 
“280 POKEW,WN:FORT=UNTOFY : NEXT : POKEW, WE: G 
OTO 220 FK 
+290 REM ***SNARE*** РН 
*300 POKEFU, SY: POKEFL, . : POKEAD, . : POKESR,T 

V JP 
“310 POKEW,WN : FORT-UNTOFY : NEXT: POKEW,WE:G 
OTO 220 FK 


BD 


*320 REM ***HI ТОМ*** 


“790 POKEAD, 63: POKEFU, 4: POKEFL, 10: POKESU, 


“330  POKEFU, ET: POKEFL, . : POKEAD, .:POKESR,T 10 NB 
N:POKEV, TL: POKEV, FT AC +800 POKEW,21 IH 
“340 POKEW, SE: FORT-UNTOFY : NEXT: POKEW, XT: G “810 FORN=1T025 MC 
OTO 220 PH .820 FORF=GTO255STEP20:POKESL, F:NEXTF DJ 
*35( REM ***LOW ТОМ*** GP +830 FORF=255TOOSTEP-20:POKESL,F:NEXTF ЈН 
“360 POKEFU, SX: POKEFL, . : POKEAD, .:POKESR,T “840 NEXTN NA 
N:POKEV, TL: POKEV, FT КА -850 POKEW,20:GOTO 1760 ВЕ 
“370 POKEW, SE: FORT-UNTOFY : NEXT: POKEW, XT: G «860 REM ***SPROING*** MH 
OTO 220 PH +870 POKESR,15*1649 NB 
*380 REM ***KICK DRUM*** МС +880 POKEW,33:POKEFU,3:FORT=1TO150:NEXT ВЈ 
“390 POKEFU,TE:POKEFL,. :POKEAD,.:POKESR, «890 POKEFU,67:POKEW,19 IK 
TR: POKEV , TH: POKEV , FT JM +900 FORN=1TOSO MM 
+400) POKEW, SE: FORT-UNTOFY : NEXT: POKEW, XT:G *910 FORF=(TOSOSTEPN : POKESU , F :NEXTF,N DN 
OTO 220 PH +926 POKEW,18:FORT=1T0500:NEXT:GOTO 1760 NB 
“410 REM ***CYMBAL*** GD +930 REM ***FORCE FIELD*** CM 
+420) POKEFU(2) , TF: POKEFL(2) , TF: POKEAD(2) , «940 POKEAD, 13*16+15:POKESR, 15*16+15 GC 
NN:POKESR(2) ,NN JI +950 POKESU,3:POKESL, 220 NK 
+430 POKEW(2) ,WN:FORT=UNTOFY : NEXT: POKEW( 2 +96) POKEFU, 23:POKEFL, 10: РОКЕМ, 21 IF 


),WE:GOTO 220 GP 
+440 REM ***WINDING DOWN RECORD*** HB 
450 0=60 GB 


“460 FORN=1T01.75STEP.25:POKEW,33:POKEW,1 
7:POKEFU, 30*N-.04*D: FORT=1TOD: NEXT 

“070 D=D*1.05 

+480 TFD>700THENFORF=16TOOSTEP—. 08 : POKEFU 
»F:NEXT:POKEW,16:GOTO 1760 


+490 NEXTN NA 
*500 POKEW,16:GOTO 460 AK 
“510 REM ***PULVERIZER**#* ND 
“520 POKEM, 19 II 
+530 POKESU, 32 OA 
+540 FORN=1T020 MH 
+550 FORF=255TOISTEP-N:POKEFU,F:NEXTF EL 
:560 NEXTN NA 
+570 POKEW, 18 IJ 
+580 60701760 GD 
*590 REM ***DISINTEGRATOR*#* HD 
» 60% POKESL,67:POKESU,12 MN 
*610 РОКЕН, 21 IH 
*620. FORR-1T03: FORN-1TO46 JB 
*630 FORF=(TO255STEPN+5:POKEFU,F:NEXTF КІ, 
640 NEXTN,R FH 
*650 POKEW,20:GOTO 1760 BE 
*660 REM ***OLD WASHING MACHINE*** HF 
“670 FORN=1T020 MH 
*680 FORF-1TO64 MP 
+690 POKEW, 17: POKEFU, F: FORT21TO15:NEXT:PO 

KEW, 32: FORT-21T05: NEXT EL 
*700 FeF*2:NEXTF,N:GOTO 1760 DC 
*710 REM ***ENERGY LEVELS*** AJ 
“720 POKEAD,9:POKESR,64+12 NP 
“730 POKESU, 3: POKESL, 220 NK 
*740 POKEFL, 10 LK 
*750 POKEW,21 IH 
“760 FORT-1T02500: POKEFU, T/100: NEXT GJ 
*770 POKEW,20:GOTO 1760 BE 
+780 REM ***NERVOUS*** PD 
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“970 FORT-1TO5000: NEXT: 
3POKEV,L:NEXT 

*980 POKEW, 0: FORT21T0500: NEXT: POKEV , 15: GO 
TO 1760 oc 


RL=15TO1STEP-.05 


*990 REM ***INVOLUTION*#* MG 
+1000 POKEV, 15+32:POKES+23, 239 PF 
*1010 POKEW, 33 IE 
“1020 FORSP-10T0255 GH 


*1030 FORF=255TOOSTEP-SP: POKEFU, F: POKES+2 


2,F:NEXT IH 
*1046 NEXTSP сс 
1050 POKEW,32:POKES+23,:GOTO 1760 JK 


*1060 REM ***AVIARY#* HD 
*1070 FORLOOP-1T02:POKEAD, 119: FORN-1T015: 
POKEW,17 

1080 FORF=INT(RND( . )*50)450TOINT(RND(. )** 
150)%505ТЕР2:РОКЕҒІ),Ғ: NEXTF: POKEW, 16 
1090) NEXTN 

:1100 POKEV,12:POKEAD,15 EJ 
*1110 POKEW,17: FORN=1TOINT(RND(1)#10)48: E 
0ВЕ-50102006ТЕР20: POKEFU,F JJ 
*1120 NEXTF,N 

*1136 FORN-ITOINT(RND(1)*10)48: FORFe5CTO2. 
GOSTEP10:POKEFU,F 

*1146 NEXTF,N 

eae POKEW, 16: POKEV, 15: NEXTLOOP:GOTO 176 
J KE 


KA 


JL 
NA 


EL 


IB 
EL 


+1160 REM ***GHOST*** BP 
“1170 FORN-1TO2 JA 
*1180 ЕОВЕЅ=100/7005ТЕР-5:РОКЕМ,17 NC 
+1190 FORF=30TOSSTEP-2:POKEFU,F+FS:NEXT ВА 
*1200 FORF=STO30STEP2:POKEFU,F+FS:NEXT LK 
*1210 POKEW,16:NEXTFS,N FB 
“1220 POKEW,16:GOTO 1760 DB 
+123) REM ***SONG OF SATURN*** CN 


*1240 POKEAD, 16*11:POKESR,16*15+11:POKES+ 
23,239:POKEV, 15+32 MP 
*1250 FORN-1TO10:POKEFU,INT(RND(1)*10)*l AF 
*1260 FORSW-OTOINT(RND(1)*200) : POKEW, 129: 


http 


IMPORTANT! (гез ол н/мйе packoround are Bug Repellent ine codes Do not enter them! Pages 87 and 88 explain these codes 
* and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


POKES+22,SW:NEXTSW HK 
*1270 POKEW, 128: FORT=1T0400:NEXT KL 
*1286 NEXTN NA 
1290 FORT=1T01500;NEXT: POKES423, 0: POKEV , 

15:GOTO 1760 EO 

1300 REM ***KETCHUP SQUIRTS*** JC 
“1310 POKEAD,15:POKES423,239:POKEV,15432 LJ 
*1320 FORN-1TOl16 MI 
+1330 POKEW,33 IE 
"1340 FORSWeOTOLSOSTEPINT(RND(1)*20)43 PE 
+1350 POKES+22,SW:POKEFU, INT(RND(1)*10):N 
EXT DG 
+1360 POKEM,32:FORT-1T0400: NEXT GC 
*1370 NEXTN NA 
"1380 POKES+23,(:POKEV,15:GOTO 1760 IG 
*1390 REM ***ELF LAUGH*** LC 
1400 FORL=1T03:F=L*10+50 EI 
1410 FORN=1T010;POKEW, 33 FJ 
1420 POKEFU, Е: FORT21T03: NEXT : POKEW, 128: F 
ORT-1TO60:NEXT KP 
*1430 Е-Е-5 BM 
1440) NEXTN,L FB 
*1450 GOTO 1760 GD 
*1460 REM ***ТНКОВ*** AP. 
*1470 POKEFU, 1 JN 
*1480 ЕОВҒ-255701805ТЕР-.06 EN 
1490 POKEFL, F: POKEW, 33: POKEW, 17: NEXT JA 
*1500 POKEW,32:GOTO 1760 DH 
*1510 REM ***INITIALIZATION*** IJ 
*1520 PRINT"[CLEAR]" : POKE53281 , 0: POKE5328 
0,10 OH 
+1530 S=54272:FORL=0T024:POKES+L,.:NEXT OD 
+1540 V=S+24:W=S+4:FU=S+1:FL=S:AD=S+5:SR= 


S+6:SL=S+14:SU=S+15:POKEV,15 ME 
+1550 W(2)=S+113FU(2)=S+8:FL(2)=S+7:AD(2) 
=S+12:SR(2)=S+13 

+1560 PRINTSPC(19)" [DOWN ] GREEN ][3"*" ] [RV 
SON ] [YELLOW ]SOUND-A-RAMA[RVSOFF ] [GREEN ] [ 
З" [е 7]" 

+1570 PRINT:PRINT 

+1580 PRINT"[RVSON]A[RVSOFF] COMPUTER ТАР 
E RECORDER EE 
*1590 PRINT"[RVSON]B[RVSOFF] DRUM MACHINE : 


BL 


JO 
GJ 


H 
“1600 PRINT"[RVSON]C[RVSOFF] WINDING DOWN 
RECORD" MF 
*1610 PRINT"[RVSON]D[RVSOFF] PULVERIZER" OJ 
*1620 PRINT"[RVSON]E[RVSOFF] DISINTEGRATO 
R ОЕ 
+1630 PRINT"[RVSON]F[RVSOFF] OLD WASHING 
MACHINE" 
71640 PRINT"[RVSON]G[RVSOFF] ENERGY LEVEL 
S 


МА 


CK 
*1650 PRINT"[RVSON]H[RVSOFF] NERVOUS" NE 
*1660 PRINT"[RVSON]I[RVSOFF] SPROING" 07 
“1670 PRINT"[RVSON]J[RVSOFF] FORCE FIELD" KK 


sitalia.net 


+1680 
+1699 


PRINT" [RVSON]K[RVSOFF] 

PRINT" [RVSON JL[RVSOFF | 

+1700 PRINT"[RVSON]M[RVSOFF] GHOST" 

ало PRINT"[RVSON]N[RVSOFF] SONG OF SATU 
LF 


INVOLUTION" 
AVIARY" 


cD 
LD 
GN 


+1720 PRINT" [RVSON]JO[RVSOFF] KETCHUP SQUI 

RTS" EF 
+1730 PRINT" [RVSON]P[RVSOFF] ELF LAUGH" ОЕ 
+1740 PRINT"[RVSON]Q[RVSOFF] THROB" EN 


*1750 
TTER 

+1760 
0 

“1770 IFA>OANDA<18THENPRINT" [HOME ]" : FORN= 
1TOA43:PRINT:NEXT:PRINT"[RVSON][c 7]"CHR 


PRINT"LDOWN][CYAN][5" "]TYPE THE LE 
OF YOUR CHOICE[c 7)" AL 
POKEFU, 0: POREFL , 0: POKEAD, 15: POKESR, 

с 


$(A464)" [RVSOFF]" DA 
*1780 GETA$:IFA$=""THEN1780 10 
+1790 A=ASC(A$)-64:IFAC1ORA>I7THEN 1780 РА 


+18) PRINT" [HOME]":FORN=1TOA+3:PRINT:NEX 
T:PRINT"[RVSON ] [YELLOW ] CHR$ (4464) " [RVSO 
FF]" 

*1810 ІҒА-16ТНЕМ 1400 

1820 IFAs17THEN 1470 

+1830 ONAGOTO1860, 1920,450, 520, 600,670, 72 
0,790,870,940,1000,1070,1170,1240,1310 
“1840 СОТО 1780 

1850 REM ***COMPUTER TAPE RECORDER INITI 


DF 
IF 
KH 


кс 
HI 


ALIZATION*** HC 
+1860 DIMCS(500),D(500) :SE=17:XT=16:UN=1: 
F=4:TN=10:TT=13;N=1:S=54272:POKES+5,9 МС 


*1870 POKES3281,9:POKE53280, 4 : PRINT" [CLEA 
R]"SPC(8)"[RVSON][YELLOW]COMPUTER ТАРЕ R 
ECORDER[ RVSOFF ]" 

*1880 PRINT"[DOWN]([DOWN][CYAN]PLAY MUSIC 
ON KEYS 1-9." :PRINT"[DOWN]HIT [RVSON]SPA 
CE[RVSOFF] WHEN DONE." FI 
*1890 PRINT"[DOWN]HIT 'P' TO PLAY THE REC 
ORDING." 

+1900 PRINT" [DOWN |НІТ "М! TO RETURN TO MA 
IN MENU.":GOTO 130 JM 

*1910 REM ***DRUM MACHINE INITIALIZATION* 
жж NM 

*1920 TF=255:UN=1:TW=2:NN=9:FV=5:FY=50:SE 
=17:XT=16:WN=129:WE=128 DO 
+1930 SY=60:TV=245:ET=8:TL=12:FT=15:SX=6: 
TN2249:TR-244:TH-13:TE-3:POKE650,128 
+1949 POKE53281,4:POKE53280, 6: PRINT" [CLEA 
R]"SPC(13)"[RVSON][ YELLOW]DRUM MACHINE[R 
VSOFF]" 

+1950 PRINT" [DOWN ]1=HI HAT":PRINT"[DOWN]2 
=SNARE": PRINT" [DOWN ]3=HI TOM": PRINT" [DOW 
N]A-LOW TOM" FP 

+1960 PRINT" [DOWN]5=KICK DRUM": PRINT" [DOW 
NJ6=CYMBAL" : PRINT" [DOWN] [DOWN] = MAIN M 
ENU 
*1970 GOTO 220 


DH 


AG 


KJ 
EE 


FROM PAGE 36 C-64 VERSION 
*110 PRINT"[CLEAR]" : POKE53280, 0: POKE53281 
7 or 
+120 PRINT"[UP][RVSON][c 2][12" "][RVSOFF 
1[зЕР][14" "(е *][RVSON][12" "]" AE 
+130 PRINT"[UP][RVSON] 11". "][RVSOFF][sEP 
[16" "(е *]{RVSON]{11" "]" HP 
+140 PRINT" [UP Газон (10 i") RVSOFF][ ЗЕР 
][18" "](c *]J(RVSON][10" FF 
+150 PRINT" [UP] [RVSON ] [9" UE D 
[20" "][c *][RVSON][9" "]" 
+160 PRINT"[UP][RVSON][ 8" ШЕВ 
[22" "][c *][RVSON][8" "]" 
+170, PRINT" [UP ][RVSON] 7" ШОШО 
[24" "][c *][RVSON][7" " 
*180 PRINT"[UP ][RVSON ][ 6 моа), 
[26" "][c *][RVSON)[6" "]" 
*190 PRINT"[UP][RVSON ] [5" "котар " 
[28" "][c *][RVSON][5" "]" 
“200 PRINT"[UP][RVSON ] [ 4" т\гаүзөЕ нгі" 
[BLACK][3" "][c N] [c H][s -][c N][s M] 
[c H][s O][s M] [s O][s P][c N] [c R)[ 
c 0] [s L] [s N][c H)[3" "(с 2][c *][RV 
SoN][4" "J" DJ 
*210 PRINT"[UP][RVSON][BLACK][4" "][RVSOF 
FJ([BLACK][4" "(е L][s N][s M][c H][s -] 
[c L] [s M][c H][s L][s N][c L][s L][s 8 
Је L][s N][s M][c H)[c U][c N][s L][c H 
][s P][c G][4" "J[RVSON][4" "]" 
+220 PRINT"[UP](RVSON][c 214" "][c 
SOFF][30" "][RVSON][sEP][4" "]" BM 
+23 PRINT"[UP][RVSON][5" "J[c tese 
[28" "][RVSON][sEP][5" "]" BF 
+240 PRINT"[UP ] [RVSON ] [6" MIC *][RVSOFF] 
[26" "][RVSON][sEP][6" "үн 
1250 PRINTLUP] |RVSON] I?» "Ie *JUINSOFF] | 
[24" "][RVSON][sEP](7" "] 
*260 spit tur sone MIC »JRsorr) 
[22" "][RvSON[ sEP][8"- " 
+270 PRINT"[UP ] [RVSON ] [ 9" MIC етот) ^ 
[20" "][RVSON][sEP][9" "]" 
+280 PRINT"[UP][RVSON][10" "][c Шы. 
](18" "][RVSON][sEP][10" "]" FH 
*290 PRINT"[UP][RVSON][11" tite *)[RVSOFF 
][16" "][RVSON][sEP][11" "]" HP. 
“300 PRINT"[UP][RVSON] [12" lite * J [RVSOFF 
][14" "][RVSON][sEP][12" "]" FJ 
*310 PRINT" [UP] BLUE] [40" [c +]"]" 
*320 PRINTTAB(13)"BY THOMAS BUNKER" 


HE 
*][RV 


IA 
HO 


*330 PRINTTAB(12)"[DOWN]AND THE AHOY! STA 

FF' NF 
“340 PRINT" [HOME]" 00 
“490 GOSUB 50000 ІМ 


“500 W$="WINDOW COMMANDS[3"[EP]"]OPEN - 
SYS"+STR$(OW)+"[EP]WRITE - SYS"+STR$(WW) EG 
*510 W$=W$+"[EP]CLOSE - SYS"+STR$(CW) HD 


*520 WZ220:HZ2-10:RZ-5:02-10 IB 
+53) SYS 49432:FORD-1T02000:NEXT KE 
“540 SYS 49440:FORD-1TO2000:NEXT:GOTO530 PL 


*600 END IC 
*50000 ML=49408:REM * CAN BE RELOCATED TO 
ANY 256 BLOCK INCREMENT. BE 


*50010 HB=INT(ML/256):LB=(ML/256-HB)*256 ІМ 
*50020 FORN=9T0519:READA:POKEML+N,A:NEXT GK 
“50030 POKEML+15,LB:POKEML+16,HB:OW=ML+24 
:WW=ML+28 : CW=ML+32 : RETURN 

*50070 DATA87,215,200,210,195,157,0,197,2 
32,96,189,0,197,96,189,0,193,149,112,202 HK 
*50080 DATA16,248,48,26,169,0,240,6,169,6 
4,208,2,169,128,133,252,162,64,181,112,1 
57 

*50090 DATA176,2,202,208,248,162,17,208,2 
20,162,4,160,0,165,46,133,72,165,45,133, 
71 NK 
*50100 DATA165,72,197,48,208,10,165,71,19 
7,47,208,4,169,0,240,33,181,112,209,71,2 
08 

+50110 DATA8,169,128,200,209,71,240,12,13 
6,165,71,24,105,7,144,217,230,72,208,213 LL 
*50120 DATA224,0,240,20,200,200,177,71,22 
4,3,176,10, 201, 3, 176, 6,169,3, 224, 0, 240, 2 FK 
“50130 DATA149, 153,202,16,178,166,155, 134 
,158,138,202,202,134,159,170,169,0,24, 10 
1 


NE 


JP 


GD 


KH 
+50140 DATAIS4,176,37, 202,208, 248,133,163 
166,154,202, 202,202,134,160, 169,40, 56,2 
29 

*50150 DATA154,144,18,197,157,144,14,133, 
253,160,0,166,156,138,24,101,155,201,26 HM 
*50160 DATA144,11,162,64,189,176,2,149,11 
2,202,16,248,96,165,157,166,156,240,9,24 LD 
*50170 DATA105,40,144,1,200,202,208,247,1 
33,164,133,166,133,168,133,170,152,24,10 

5 “ЕМ 
“50180 DATA4,133,165,133,169,105,212,133, 
167,133,171,165,127,133,123,133,118,36,2 
52 

+50190 DATA48,63,112,61,166,128,232,232,1 
34,119,162,0,160,0,165,154,133,172,177,1 
64 

“50200 DATA32,117,0,177,166,32,117,0,208, 
2,230,119,200,208,4,230,165,230,167,198 ЕН 
+50210 DATA172,208,231,198, 158, 240,14,152 
,24,101,253, 144, 4, 230, 165,230,167, 168, 24 JD 
*50220 DATA144, 209,36,252, 48, 118, 166, 128, 
232,232, 232,232, 134,119, 160,4,162,3,177 cc 
*50230 DATA71,149,172,136,202, 208,248,136 
,169,112,32,117,0,165,160,133,172,169,64 FG 
+5024) DATA32,117,0,198,172,16,249,192,0, 
208,70,169,110,32,117,0,169,93,32,117,0 GM 
+50250 ФАТА165, 160,133, 172, 177, 174, 201,64 
,144,6,201,96,176,2, 233, 63, 198, 173, 16,4 ВР 
+50260 DATA230, 173, 169, 32, 201, 28, 208, 8,13 
6,165,172,208,243, 200, 208,242,32,117,0,2 


BK 


OL 


KN 


AHOY! 


ttp: 


To Enter DISINTEGRATOR... лу 72 се пекан mere "о ny roam Read ei 


00 

“50270 DATA198,172,16,216,169,93,32,117,0 
,198,159,208,198,169,109,32,117,0,208,16 
9 GI 
*50280 DATA169,125,32,117,0,166,128,232,2 
32,36,252,48,2,232,232,134,124,162,0,160 JL 
*5(290 DATA0,165,154,133,172,32,122,0,145 
,168,36,252,48,8,173,134,2,145,170,24,14 

4 CE 
50300 DATA6,232,32,122,0,145,170,232,208 
,2,230,124,200,208,4,230,169,230,171,198 LB 
+50310 DATA172,208,217,198,155,208,11,162 
,64,189,176,2,149,112,202,16,248,96,152 OJ 
*50320 DATA24,101,253,144,4,230,169,230,1 
71,168,24,144,184 JF 


VIC 20 VERSION 

*( 607050 PD 
*1 HB=PEEK (56) :LB=PEEK(55) ON 
*2 HB=HB-1:LB=LB-162:IFLB<OTHENLB=LB+256 MG 
*3 POKE56, HB: POKE52, HB: POKE55, LB: POKE51,L. 
B:ML=256*HB+LB 

+4 FORN=(10417:READA:POKEML4N , A: NEXT 

+5 POKEML+22,LB:POKEML+23,HB:OW=ML+5:WW=M 
L+9:CW=ML+13 
*6 W$="0PEN SYS"+STR$(OW)+"[EP]WRITE SYS 
"4STR$(WW)+"[EP]CLOSE SYS"+STR$(CW) 
+8 W%=18:H%=5:R%=8:CZ=2 

*9 RETURN 

+10 DATA87,215,200,210,195,169,0,240,6,16 
9,64,208,2, 169, 128,133,94,162,4,160,0,18 
9,0 MH 
*11 DATA28,133,87,165,46,133,72,165,45,13 
3,71, 165, 72,197,48, 208,19, 165, 71,197 ,47, 
208 

+12 DATA4,169,0,240,33,165,87,209,71,208, 
8,169,128, 200, 209,71, 240,12,136,165,71,2 
4,105 

*13 DATA7, 144,217,230, 72,208, 213,224,0,24 
0,20,200,200,177,71, 224, 3, 176, 10, 201, cH 1 
76,6 

*14 DATA169,3,224,0,240,2,149,87,202,16,1 
73,166,89,224,13,176,15,202,202,134,92,1 
66,89 

+15 DATA169,0,24,101,88,201,96,144,3,96,2 
40,139,202,208,243,133,96,166,88,202,202 
,202 

+16 DATA134,93,169,22,56,229,88,144,234,1 
97,91,144,230,133,95,160,0,166,90,138,24 
‚101 

+17 DATA89,201,24,176,216,165,91,166,90,2 
40,9,24,105,22,144,1,200,202,208,247,133 
,38 

*18 DATA133,40,152,24,109,136,2,133,39,15 
2,24,105,148,44,2,144,16,3,24,105,2,133, 
41,36 


СА 


GB 


JE 


BD 


LC 


MB 


KL 


AG 


HA 


HP 


98 AHOY! 


*19 DATA94,48,37,112,37,162,0,160,0,165,8 
8,133,42,177,38,157,52,3,177,40,157,152, 


3,232 FD 


L +20 DATA200,198,42,208,240,198,89,240,143 


,152,24,101,95,168,208,225,208,117,160,4 
,162 
*21 DATA3,177,71,149,251,136,202,208,248, 
136,169,112,157,161,2,232,165,93,133,42, 
169 
*22 DATA64,157,161,2,232,198,42,16,248,19 
2,0,208,75,169,110,157,161,2,232,169,93, 
157 HJ 
*23 DATA161,2,232,165,93,133,42,177,253,2 
DET Ot cun Dome poc oe 
Й 
-24 DATA230,252,169,32,201,28,208,8,136,1 
65,42,208,243,200,208,242,157,161,2,232, 
200 РС 
+25 DATA198,42,16,215,169,93,157,161,2,23 
2,198,92,208,195,169,109,157,161,2,232,2 
08,163 
“26 DATA169,125,157,161,2,162,0,160,0,165 
,88,133,42,36, 54, 16, 14, 189, 52, 3, 145, 38, 1 
89,152 IP 
«27 DATA3,145,40,232,200,208,12,189,161,2 
5145,38, 173, 134; 2, 145, 40, 232, 20, 198, 42, 
208 KL 
+28 DATA222,198,89,208,1,96,152,24,101,95 
,168,24, 144, 205 CL 


GH 


LE 


DL 


FF 


-50 PRINT" [CLEAR]": РОКЕЗ6879,232 СЕ 
۰60 PRINT" [UP ][RVSON] [YELLOW] [ 22" ЛЕ CD 
“70 FORA«1TO17:PRINT"[YELLOW ] [RVSON ] [UP ][ 

4" "J[RVSOFF][BLACK] WINDOW VIC [YELLO 

W][RVSON][4" "]":NEXT EE 
“75 PRINTTAB(3)"[WHITE]BY T THOMAS BUNKER": 

PRINTTAB(4)"& AHOY! STAFF" IH 
«80 GOSUB 1:POKE646,2 JK 
+90 SYS OW: FORD-1T02000: NEXT FK 
+100 SYS CW:FORD-1TO2000:NEXT:GOTO90 JC 


DISINTEGRATOR 


FROM PAGE 17 

First byte: C000 Last D C720 SYS to Start: 49152 
C000: 
C008: 
C010: 
C018: 


00 
DO 
C4 
c8 
D5 
13 
C6 
C3 
DE 
C3 
53 
8D 


DO OB 


FF 


8D 6B 
20 
68 
00 
20 
8D 
20 
19 
20 
99 
A9 
F9 


AQ 


C180: 
C188: 
C190: 
C198: 
C140: 
C148: 
С1В0: 
C1B8: 
C100: 
C1C8: 
с1р0: 
C1D8: 
CLE: 
С1Е8: 
С1Е0: 
С1Е8: 
C200: 
C208: 
C210: 
C218: 


C230: 
C238: 
C240: 
C248: 
C250: 
C258: 
C260: 
C268: 
C270: 
C278: 
C280: 
C288: 
C290: 
C298: 
C240: 
C248: 
С2В0: 
C2B8: 
C2C06: 
C2C8: 
C2D0: 
C2D8: 
С2Е0: 
С2Е8: 
С2Е0: 
C2F8: 
C300: 
C308: 


http://www.ol net 


IMPORTANT! Si background are Bug Repellent ine codes Do not enter them! Pages 87 and 88 explain those codes 
1 and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 


C400: DO CE D3 C6 AD D3 C6 8D 16 C5C0: 4C 45 54 45 00 13 11 11 21 
C408: 04 D4 ЕЕ D3 C6 CE D1 C6 Dl C5C8: 11 11 1D 1D 1D 1D 1D 1D 99 
C410: AD D1 C6 DO Со 20 4E C4 1B C5D0: 1D 1р 1D 1D 1D 1D 1р 20 BC 
C418: A9 OB 8D 20 DO A9 00 8D 82 C5D8: 20 20 20 20 20 20 20 20 D9 
C420: 21 DO 60 20 4E C4 A9 OF SE C5E0: 20 20 20 20 20 00 OA 02 8D 
C428: 8D 18 D4 A9 70 8D 05 D4 24 C5E8: 80 0A 02 80 4A 02 84 FA Cl 
C430: A9 FA 8D 06 D4 AD D3 Сб 85 C5F0: 02 BC FA 02 BC FF 03 FC 69 
C438: 8D 04 D4 A9 09 8D 01 D4 B4 C5F8: DF CF DC D7 CF 5C F5 FD 7D 
C440: A9 9F 8р 00 D4 A2 C8 20 77 C600: 7C ЗЕ FF Ғ0 ОЕ 57 С0 ОЕ E2 
C448: B2 СЗ 20 4E C4 60 А0 00 F2 C608: 57 С0 ОЕ 57 CO ОЕ 57 CO 6E 
C450: A9 00 99 00 D4 CB CO 19 ОВ C610: ОЕ 57 С0 03 FF 00 00 FC 37 
C458: DO F6 60 20 Ей FF C9 20 6F C618: 00 00 10 00 00 10 00 00 38 
C460: DO F9 60 93 11 11 11 11 63 C620: 00 00 00 00 00 00 00 10 30 
C468: 11 11 11 11 11 11 11 11 FO C628: 00 00 38 00 00 7C 00 00 DC 
C479: 11 11 11 11 11 11 00 12 E8 C630: FE 00 00 FE 00 00 38 00 66 
C478: 1C 20 20 92 9A Cl 12 1C F1 C638: 00 7C 00 00 00 00 00 00 B4 
C480: 20 20 20 20 92 9A Cl 12 02 с640: 00 00 00 00 00 00 00 00 40 
C488: 1C 20 20 20 20 92 9А Cl 14 C648: 00 00 00 00 00 00 00 00 48 
C490: 12 1C 20 20 20 20 92 9A 6C C650: 00 00 00 00 00 00 00 00 50 
C498: Cl 12 1C 20 20 20 20 92 9B C658: 00 00 00 00 00 00 00 00 58 
C4A0: 9A C1 12 1C 20 20 20 20 АВ C660: 00 00 00 00 00 00 OE 01 6F 
C448: 92 9А Cl 12 1C 20 20 20 26 C668: FC ІҒ АЗ ЕС ЗЕ FF F8 7F DC 
САВ: 20 92 9A Cl 12 1C 20 20 2E C670: FF 80 7F FF CO FF FF ЕО 22 
C4B8: 20 20 92 9A Cl 12 1C 20 36 C678: FF FF F8 7F FF FC 3F FF 2D 
C4C0: 20 00 12 1C 20 20 20 20 8F C680: ЕС ЗЕ FF FC IF FF F2 1F EA 
C4C8: 20 20 20 20 20 20 20 20 C9 C688: FF FO ЗЕ FF F8 7F FF FC 2E 
C4D0: 20 20 20 20 20 20 20 20 Dl C690: 7F FF FE ЗЕ FF FF 3F FF 8D 
C4D8: 20 20 20 20 20 20 20 20 D9 C698: FF 7F FF FF FF 9F FE FC B3 
C4E0: 20 20 20 20 20 20 20 20 El C6A0: ОЕ 9E ЕВ 07 OE FF 20 48 C4 
С4Е8: 20 20 20 20 00 12 1C 20 B7 C648: 70 98 CO E8 11 39 00 00 А5 
C4FO: 20 05 31 1C 20 20 20 20 ЕЗ C6B0: 00 00 00 00 01 01 00 00 B2 
C4F8: 05 32 1C 20 20 20 20 05 D1 C6B8: 00 00 00 00 07 07 31 32 24 
C500: 33 1C 20 20 20 20 05 34 09 C6C0: 33 34 35 36 37 38 00 00 03 
C508: 1C 20 20 20 20 05 35 ІС ҒА C6C8: 00 00 00 00 00 00 00 00 C8 
C510: 20 20 20 20 05 36 1C 20 08 C6D0: 00 00 00 00 00 04 20 09 FD 
C518: 20 20 20 05 37 1C 20 20 11 C6D8: 20 13 20 09 20 HE 20 14 97 
C520: 20 20 05 38 1C 20 20 00 F9 С6Е0: 20 05 20 07 20 12 20 01 80 
C528: 12 9А 20 20 20 20 26 20 95 C6E8: 20 14 20 ОЕ 20 12 13 11 A2 
C530: 20 20 20 20 20 20 20 20 31 C6F0: 11 11 11 11 11 11 11 11 79 
C538: 20 20 20 20 20 20 20 20 39 C6F8: 11 11 11 11 11 11 11 1р 8D 
C540: 20 20 20 20 20 20 20 20 81 C700: 1D 1D 1D 1D 1D 1D 1D 9A 66 
C548: 20 20 20 20 20 20 20 20 49 C708: 50 52 45 53 53 20 12 52 1B 
C550: 20 20 00 12 99 4C 45 56 24 C719: 45 54 55 52 4E 92 20 54 А6 
C558: 45 4C 20 30 30 9A 20 20 45 C718: 4F 20 53 54 41 52 54 00 17 
C560: 20 20 20 20 99 53 43 АЕ 60 C720: FF 20 


C568: 52 45 20 30 30 30 30 30 11 

570: 9А 20 20 20 20 20 20 20 EB 

0578: 99 4C 49 56 45 53 20 30 6 SCREEN DUMP ROUTINE 
C580: 30 13 05 00 11 11 50 4C 87 FROM PAGE 46 


C588: 41 59 20 41 47 41 49 ДЕ A4 *49000 PRINT"[CLEAR]" : POKE53280, 9: POKES32 
C590: ЗЕ 20 5B 59 2F 4E 5D 00 7F 81,7 JJ 


C598: 93 05 92 53 43 АЕ 52 45 41 +49010 FORA=1T05:PRINT:NEXT BF 
C540: 20 00 13 05 92 11 11 11 9E +459020 PRINTTAB(10)"[c 2]SCREEN DUMP UTIL 
C548: 11 1D 1р 1D 1D 1D ID 1D 85 . ITY" PO 
C5B0: 1D 1D 1D 1D 1D 1D 4C 45 FO +49030 PRINTTAB(19)"[DOWN]BY" : PRINTTAB( 12 
C5B8: 56 45 4C 20 43 4F Ар 50 FO )"[DOWN]ALFRED J. BRUEY" oP 
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«49040 PRINTTAB(12)"[7" [DOWN |" ] [BLACK ]FOR 
AHOY MAGAZINE" CJ 

*49050 PRINTTAB(7)"[DOWN](C) ION INTERNAT 
IONAL INC." 

+49060) PRINTTAB(5)"( DOWN] [DOWN] [PURPLE] [R] 


VSON]PRESS 'Fl' TO DUMP THIS SCREEN" LG 
*49070 GETA$:IFA$<>"[F1 ]"THEN49070 DA 
*49080 GOSUB 50030 IL 
*49090 PRINT" [CLEAR ] [WHITE]" : POKE53280, 0: 

POKES3281 , 6: FORA=1TO8: PRINT: NEXT EL 
*49100 PRINT" IF YOU WISH TO USE THIS UT 

ИЛТҮ AS A SUBROUTINE IN YOUR OWN" AG 


+49110 PRINTTAB(24)"[UP]PROGRAM, REMOVE L 
INES 49[3"0"] TO 50030 AND THEN ADD THE" LE 
*49120 PRINT"REMAINING LINES TO YOUR OWN 


PROGRAM." KC 
*49130 END IC 
+50000 : DI 
*50010 REM ** SCREEN DUMP SUBROUTINE ** EL 
*50020 : DI 
+50030 OPEN4,4 DG 
*50040 FORI-1023 TO 2006 STEP 40 OK 
50050 PR$="" IM 
*50060 FOR J=I+1 TO Із40 KB 
“50070 V=PEEK(J) GD 
+50080 IF V>127 THEN 50130 NH 
*50090 IFV<=31 OR V>=96 THEN V1=V+64:GOTO 

50120 AG 
“50100 IF V>=32 AND V<=63 THEN V1=V:GOTO 

50120 KC 
*50110 У1-У%128 OB 
+50120 PR$=PR$+CHRS$(V1):GOTO 50190 GC 
*50130 IF V<=159 OR V>=224 THEN У1-У-64:6 

ОТО 50160 FK 


*50140 IF V>=192 AND V<=223 THEN V1=V:GOT 
0 50160 сс 
“50150 У1-У-128 NA 
*50160 IF LEN(PR$)=9 THEN PR$=CHR$(18)+CH 
R$(V1)+CHR$(146) :GOTO 50190 FM 
+50170 IFRIGHT$(PR$,1)<>CHR$(146)THENPR$= 
ی‎ СИЕ EGG 250103019, 


FE 
„Улай PR$-LEFT$(PR$, LEN(PR$)-1)4CHR$(V1) 
+CHR$(146) NO 
*50190 NEXTJ MM 
+5020) PRINT#4,PR$ MG 
+50210 NEXTI:CLOSE4 OH 
+50220 RETURN IM 


16 ЗЕ 


FORMATIER 


FROM PAGE 13 

+10 REM *** FORMATTER *** 
*15 IF PEEK(686)THEN386 
*20 GOTO1000 


u 
FC 


*95 REM ***FLIP SCREENS*** MP 
+10) X=PEEK(T):IFP<>ETHEN125 JP 
+102 SYS49391 KI 
*105 P=I:POKEA,49:POKET+B,P:POKE4,76:S=H LA 


+106 POKE56333, 127: POKE788, 196: POKE789, 19 
4:POKEA+B, 129:REM START RASTER NC 
+107 PRINT" [CLEAR] [DOWN] [RIGHT] [RVSOFF] [B 
LACK ]TYPE CHARACTER TO": PRINT" [RIGHT }REP 
ROGRAM ON LOWER 
+109 PRINT"[RIGHT]PORTION OF SCREEN AND": 
PRINT"[RIGHT]PRESS Ей. PRESS АМҮ F 
-111 PRINT"[RIGHT]KEY TO INPUT CHANGES.": 
PRINT"[DOWN][RIGHT]PRESS F6 TO RETURN 
*113 PRINT"[RIGHT]TO SCREEN 1[DOWN]":POKE 
T, X: RETURN FK 
+124 REM SCREEN @ BANK 2, 34816($8800)AND 
CHARS @ $8000 OR $9000 PG 
*125 POKEA+B, 240: POKE788, 49: POKE789, 234 : P 
OKE56333, 129:REM RASTER OFF LJ 
*126 P=E:SYS49424:POKER+H, SC: POKER, BC: POK 
EA,CS:S=. сс 
+127 POKET4B, P: POKEA , 8): POKET , X: PRINT" [HO 
МЕЈ": RETURN JH 
+149 REM **REPROGRAM*4* EE 
*150 GePEEK(3) :XePEEK (T) BK 
*151 FORJ=.T05:POKE218+J, 136: POKE2244J , E, 
7:NEXT 


CL 
HM 
GG 


You're invited to the 
biggest party at 
Valley Forge since 
George brought 

the boys! 


M.A.R.C.A.\¢ 


The biggest Commodore User Fair in the US. 
July 26, 27, 28 


Valley Forge Convention Center, Valley Forge PA 


* Speakers! * Seminars! * Hanging out! 
* Fun! * Vendors! * Great Buys! 
* SocialEvents! • Fun! 
Areas Tours available. 


Meet the names you've only read about. Jim Butterfield. 
Dick Immers. Len Lindsey. Many, many more! Ask the ques- 
tions you need answers to. Have 2'/; days of non-stop 
Commodore fun! Bring the whole family. Lots to do. See. 
And buy. Bargains galore! 
Pre-registration by July 1: 2/; days $25 M.A.R.C.A. Mem- 
bers $15.Family Rates avallable. 
For pre-registration information: M.AR.C.A., 

(304) 267-8912 


DON'T MISS THE PARTY! 


Reader Service No, 233 
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152 M=32768+G*C: PRINT" [HOME ]"TAB(27)"[11 
w "J [HOME]" IC 
*153 FORJ=.T07:Z=128:G=PEEK(M+J) : PRINTTAB 
(27)"[3" "]"; LF 
*154 FORK-HTOC: PRINT LCE IQ TEGSA ы 
GzG-Z: PRINT" [RED] [LEFT ]*" ; 

*155 ZeZ/B:NEXT:PRINT" ":NEXT: PRINTTAB(OT, 
13" "у" IA 
+156 PRINT" [HOME] [DOWN ]" TAB(30) ; EP 
*157 POKEM, .:SYS50222:POKET, X: RETURN ME 
«200 SC=-SC*(SC<N)+H: PORERHI, SC: POKE254, S 

C: RETURN: REM SCREEN COLOR NJ 
+225 BC=-BCF(BCCN) +H: POKER, BC: RETURN: REM 
BORDER COLOR 

+250 Bl=-B1*(B1<N)+H:R1=B1-H: POKER+B,R1:R 
ETURN:REM REGISTER 1 

“275 B2=-B2*(B2<N)+H:R2=B2-H:POKER+3,R2:R 
ETURN:REM REGISTER 2 NC 
+300 B3«-B3*(B3«N)4H: R3-2B3-H: POKER+4 ,R3:R 
ETURN:REM REGISTER 3 JO 
“325 ЕВ=. :POKE53265, PEEK(53265)OR64:REM E 
XTENDED BACKGROUND ON JE 
+326 SYS49980:F-PEEK(253)-132:0NFGOSUB200 


IE 


1250, 275,300, 350,380,100 KE 
“328 IFF=STHENRETURN PJ 
+329 IFF=CTHENEB=H:GOTO400 CN 
+330 GOTO326 CL 


“350 POKE53265, PEEK (53265) AND191: RETURN: R 
EM EXTENDED BACKGROUND OFF JB 
“365 MC=.:POKEA-B, PEEK(A-B)ORN : REM TC a 
OLOR ON 

*367 SYS49980;F=PEEK(253)-132: 207% 
,250,275,375,328,380,100 


“370 IFF=4THENRETURN РЕ 
“372 IFF=CTHENMC=H:GOTO400 FM 
“373 GOTO367 со 
*375 POKE53270,PEEK(53270) 4ND239: RETURN: R 

EMMULTICOLOR OFF ғо 


*380 IFSTHENGOSUB150:RETURN:REM CHARACTER 
SET SWITCH MO 

*381 O=ABS(0-CN) :С5=33+0: POKEA , CS : RETURN: 
REM FLIP CHARACTER SETS KG 

*385 REM ***MENU HE 

*386 Р-140:Е-136:І-Р:К-53280:Н-1:ВС-Н:5С- 


ОЕ 


15:һ-53272:С5-33:Т-646:В-2 DN 
*388 X=11:W=198:C=8:N=16:CN=4:BL=53265:PO 
KE254,SC 
+390 D-3002 MJ 


*395 POKE56576,5: IFPEEK(684)- . THENGOSUB12 
6:PRINT"[CLEAR]"'; :РОКЕ684,Н AL 
о av Х=РЕЕК(Т) : IFP-ETHENSYS49391 : CS-PEEK ( 
А 

+401 IFSTHENPOKEA4B, 240: POKE788,, 49: POKE78 
9, 234:POKE56333,129:REMTURN OFF RASTER 
+402 IFMCTHENGOSUB375 :MC=H 

+403 IFEBTHENGOSUB350; ЕВ-Н 

+408 РОКЕ56576,7:РОКЕТ+В,4: REM DEFAULT SC 
REEN FD 


102 


10 
LA 
JB 


AHOY! 


net 


*410 POKEBL, PEEK(BL)AND239: POKEA, 21 : POKER 
+H, 15:POKER,H:POKET,9 HD 

-411 PRINT"[CLEAR]"TAB(57) "МЕМ": PRINT" [D 
OWN][3"[RIGHT]"]l INSTRUCTION SCREENS 

+413 PRINT"[DOWN][3"[RIGHT]"]2 FORMATTING 
SCREEN 

+414 PRINT" [DOWN][3"[RIGHT]"]3 CHARACTER 
REPROGRAMMING SCREEN 

+415 PRINT"[DOWN][3" [RIGHT]"]4 MAKE BASIC ы 
PRINT STATEMENTS 

+416 PRINT"[DOWN][3" [RIGHT]"]5 DISPLAY m 

М SCREEN(S) PC 

*417 PRINT"[DOWN][3"[RIGHT]"]6 DELETE PRO 
GRAM LINES PB 

+418 PRINT"[DOWN][3"[RIGHT]"]7 MAKE SM 
CTER DATA STATEMENTS 

+419 PRINT" [DOWN][3"[RIGHT]"]8 SWITCH ci 
TOM CHARACTER SET":PRINT"[DONN][3" [RIGHT 
]"]9 STOP PROGRAM FP 

+420 PRINTTAB(50)"[BLUE]YOUR CHOICE [1- ^" 
[SS]?": POKEBL, 27 

+421 WAITW,H: GAFREK (5T) -A8: POLEN тсн 
ORG>9THEN421 

+422 ONGGOTO600, 430,435,485, 1600, 720, 800, 
950,428 AM 


BH 
EI 


«428 РОКЕ828,.:5Ү5828 DE 
«430 POKE56576,5:GOSUB126:G0T0438 oD 
“435 POKE56576,5:POKER, BC: GOSUB105 IN 
+438 IFMCTHENGOSUB365 PG 
“440 IFEBTHENGOSUB325 PF 
+445 SYS49980:F=PEEK(253)-132 BH 


«450 ONFGOSUB200, 225, 275,365,325,389,100 KP 


*455 IFF-CTHENAO0 AM 
“460 GOTO445 CL 
+480 REM ***SCREEN SCAN*** NF 


2435 PRINT"[CLEAR]"TAB(92)"NEW PRINT LINE 
CL 
ioo PRINTTAB(205)". . .SPACE TO CONTINUE 
"SPC(58)". . . ANY OTHER FOR MENU 
*495 POKEM, . : WAIT198, H: IFPEEK (631) 4532THE 
№10 МА 
*500 PRINT" [CLEAR ]"D"GOSUB6[3"0"']2:PRINTC 
HR$(19)TAB( 140) PEEK(58)*256+PEEK(57)"; 
“501 PRINT" :WATTW, H: POKEM, ."": POKE679, X 
“502 D=D+B:PRINTD" POKER+H, " SC" [ LEFT] :POKE 
В, "BC" [LEFT] : POKEA , "CS" [LEFT ] : SCe"SC"[ LE 
ЕТ]:ВС="ВС; 
+503 PRINT" [LEFT]: POKET, "X" [LEFT] : E ы 
R$(147);" :SYS49457: D=D+B:M=4 
+50% IFMCTHENPRINTD"POKE53270, pEEK( 53270) 
OR16:POKER+2,"R1"[LEFT]:POKER+3, "R2; 
“505 IFMCTHENPRINT" ( LEFT] :MC=H":D=D+B 
+506 IFEBTHENPRINTD"POKE53265 , PEEK (53265) 
OR64: POKER+2, "RI"[LEFT]:POKER+3, "R2; EJ 
*507 IFEBTHENPRINT"[LEFT ]:POKER+4,"R3"[LE 
FT]:EB=H":D=D+B MH 
*508 PRINT"515 D="D"[LEFT ]:EB="EB"[LEFT]: 
MC="MC" [LEFT] :X="X JD 


KL 


PM 
KI 


JB 


PJ 
NI 


http: 


+509 IFEBORMCTHENPRINT"PRINTCHR$(147) :РОК 
E218, 4:RUN515": 6070560 
“510 PRINI"RUNSIS": 6070560 
“517 IFPEEK(2)THENPRINT" [ CLEAR]"'; :РОКЕ218 


NB 


, 
+520 PRINTD'?"CHR$(34) :D=D+2 DG 
+525 SYS49482:IFPEEK(2)-.THENM-5:GOTO540 OH 
+530 PRINT"515 р="р"[1,ЕЕТ]:ЕВ="ЕВ"[1ЕЕТ]: 
МС="МС"[1ЕЕТ] X JD 
+535 PRINT"RUN515":M=6:GOTO560 Dc 
+540 PRINID'WATIW,H:G-P[s E](631):P[s 014 
, 1 IFGS82THENP[s O]T,"X; FI 
+541 PRINT"LLEFT]:P[s 0]254,SC:GOTO438" :D 
=D+2 KF 
+545 IFMCTHENPRINTD'POKE53270, PEEK (53270) 
AND239:MC=,": D=D+: HK 
+550 IFEBTHENPRINTD"POKE53265, EUN 
AND191:EB=.":D=D+2:M=M+1 
+552 PRINTD"IFG<>32THENSC=M: BC=Z: тақы! 
7):GOTO408" : D=D+2 
*555 PRINT'396 D="D:PRINT"515": PRINETRUNS| 
86" : IFPEEK (681) THENM=M+1 
+560 F=631:G=13:POKEF,19:FORJ=1TOM: POKEF+ 
J,G:NEXT:POKE198,M+1:END DD 
“595 REM ***INSTRUCTIONS*** IE 
“600 POKEBL, PEEK(BL)AND239:POKER+H,H:POKE 
R,6:POKEA, 23 
*602 PRINT"[CLEAR][BLUE][3" "][s O][s N][ 
SS][s F][s O][s R][s M][s AJ[s T][SS][s 
A][s N][s D][SS][s R][s E][s P][s R][s 0 
Ils б][в R][s A][s M][SS][s S][s C][s R] 
[в Elis Elis Nlis 8][55]- EC 
+604 PRINTTAB(Al)"Fl = [s S]CREEN COLOR LF 
“606 PRINTTAB(41)"F2 = [s E]XTENDED BACKG 
ROUND COLOR ON/OF PM 
*608 PRINTTAB(41)"F3 = [s B]ORDER COLOR "Я 
R COLOR REGISTER #1 
610 PRINTTAB(6)"WITH MULTICOLOR ([s тей 
61) OR EXTENDED"SPC(8)"BACKGROUND COLOR 
([s E][s B]) JO 
*614 PRINTTAB(41)"F4 = [s S]WITCH BETWEEN 
CUSTOM AND REGULAR 
*616 PRINTTAB(6)"CHARACTERS ON FORMAT SCR 
EEN OR AN 
“618 PRINTTAB(6)"ENABLE CUSTOM CHARACTERS 
ON"SPC(13)"REPROGRAMMING SCREEN 
*620 PRINTTAB(41)"F5 = [s C]OLOR REGISTER 
#2 WITH [s M][s C] OR [s E][s B]" 
*622 PRINTTAB(41)"F6 = [s S]WITCH BETWEEN 
FORMATTING AND"SPC(11)"REPROGRAMMING SC 
REEN AN 
“624 PRINTTAB(41)"F7 = [s MJULTICOLOR ON/ 
OFF OR COLOR IG 
*626 PRINTTAB(6)"REGISTER #3 WITH [s E][s 
B]":POKEBL, 27 JH 
+628 PRINT" [DOWN] [RIGHT]":FORJ=.T010:PRIN 
T"[UP][RIGHT][RED]F8 = [s M]ENU 
+630 FORG-HTO60: NEXT: PRINT" [UP] [RIGHT] [RV 


AJ 


JH 
GM 


JB 
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SON]F8 = [s M]ENU":FORG-HTO60:NEXT:NEXT NA 


KF -632 PRINT"[RIGHT][BLUE] ([s S][s P][s A] 


[s C][s E] FOR MORE: [s A]NY OTHER FOR M 
ENU)"; 

+634 WAITW,H:POKEM, . : IFPEEK(631)=32THEN65 
6 


*636 6070410 
*656 POKEBL, PEEK (BL) AND239: PRINT" [ CLEAR]"' 

TAB(86)"[s F][s O][s R][s M][s А][в T][S 
S][s S][s C][s R][s Е][в E][s N][SS][s C 

Із O}[s 1418 0][s REI C][s H][s А] 

[s N][s G][s E][s 51" GP 
*658 PRINTTAB(83)"[s T]O CHANGE ALL OF A 
CERTAIN COLOR PK 
*660 PRINTTAB(3)"TO ANOTHER COLOR: BN 
*662 PRINTTAB(45)"A. [s S]ET CURSOR TO CO 
LOR YOU WISH"SPC(12)"TO CHANGE. MM 
*664 PRINTTAB(45)"B. [s P]RESS [s C][s a. 

[s R][s L] AND C KEYS 
*666 PRINTTAB(8)"TOGETHER. ((в ТІНЕ cs 
OR WILL"SPC(13)"DISAPPEAR. ) EJ 
*668 PRINTTAB(45)"C. [s P]RESS [s C][s T] 

[s R][s L] OR [s C][s 01(в М][в M][s 91 

s D][s O][s R][s E] 

*670 PRINTTAB(8)"KEY AND THE NEW COLOR nu 

Y"SPC(15)" TOGETHER. AM 
*672 PRINTTAB(5O)"([s A]NY KEY FOR MENU.) 

" : POKEBL, 27 FD 
*674 WAITW,H:POKEM, . : GOTO410 CD 
+719 REM ***DELETE*** FA 
*720 POKER+H,3 :POKER,B:POKEA, 23: POKEBL,P 
EEK(BL)AND239 
-722 PRINT"[CLEAR]"TAB(207)"[BLUE][s D][s 

E][s L][s E][s T][s E] [s P][s R][s 0)| 
s G][s R][s A][s M][SS][s P][s R][s I][s 

N][s T] [s L][s I][s N][s E][s S] MG 
*724 PRINTTAB(86)"1 [s A]LL NEW PRINT LIN 
ES 


CJ 


FC 


LI 
+726 PRINTTAB(46)"2 [s S]ELECT FROM TO EN 
D FD 
+728 PRINTTAB(46)"3 [s S]ELECT FROM TO SE 
LECT END 

+729 PRINTTAB(46)"4 [s D]ELETE ALL [s BH. 
s U][s T] NEW LINES 

-730 PRINTTAB(46)"5 [s R]ETURN TO MENU 
-732 PRINTTAB(49)"([s P]RESS NUMBER DESIR 
ED)": POKEBL, 27 

+734 WAITW,H:G=PEEK(631)-48:POKEW, .:1FG<H 
ORG>STHEN734 DF 
+736 IFD-3002THENIFGCATHENPRINTTAB(81)"[R 
ED][RVSON][s N]O LINES TO DELETE. [s A] 
NY KEY FOR MENU." :GOT0685 

+738 POKET, Х:М=. : FD: 223002: L7: ONGGOTO77 


BP 


" 
01 


3, 740,740,900, 410 IF 
+740 PRINT" [CLEAR] [DOWN ] [DOWN] [RIGHT] [RIG 
HT][s E]NTER STARTING LINE NUMBER"; DI 


“745 INPUTL: IFLANDIORL«3002THENPRINT" [RIG 
HT][RIGHT]£& UNEVEN OR TOO SMALL:"; :GOTO7 
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HB 

+750 IFG=2THENZ=L:GOTO765 CK 

+755 Z-D:PRINT"[DOWN][RIGHT][RIGHT][s E]N 

TER ENDING LINE NUMBER"; 

*760. INPUTD: IFDANDIORD»ZTHENPRINT"4 UNEVE 
J 


N OR TOO BIG:";:G0TO760 
“765 IFL»-DTRENPRINT" [CLEAR] [DOWN] [4" [RIG 
HT]"][RED][RVSON][s S]TARTING # TOO BIG. 
[s S]TART OVER.[RVSOFF][c 4]":D=F:GOTO7 
22 KN 
*773 F=D-L: PRINT" [CLEAR ]";:IFF<11THEN785 HB 
“775 FORJ=LTOL+12STEP2:PRINTJ:NEXT: KM 
*776 PRINT"772 L="J" [LEFT] :D="D" [LEFT] :Z= 
"Z: PRINT" RUN772":M=9:GOTOS60 
*785 IFF=.THEN787 AJ 
“786 FORJ=LTODSTEP2:PRINTJ:M=M+1:NEXT LD 
“787 PRINT" 772":PRINT"399 D="Z:PRINT"RUN3 
86" :M=M+3:GOTO560 BA 
“795 REM***CHARACTER DATA*** BF 
+800 SYS49280: IFPEEK(B)THEN820 PH 
«805 PRINT"[CLEAR]"TAB(203)"[c 4]NO CHARA 
CTERS REPROGRAMMED AS YET FF 
*810 PRINT"[DOWN][DOWN][3"[RIGHT]"][c 4]( 
PRESS ANY KEY TO RETURN TO MENU) 
*B15 WAITW,H:POKEM, , : PORE254, SC: s 
-820 PRINT" [CLEAR ]6[3"0"]6 FORJ«1TO"PEEK( 
2):PRINT"RUN825":PRINT" 60010":M=3:GOTO 
560 OK 
«825 INPUTZ ор 
“830 5С-РЕЕК(50432%РЕЕК(2)-1):СН-32768-8% 
SC 


DD 


LI 
pos FORJ=.T07 : C$2C$4 STR$ (PEEK (CH+J) ) :NEX 


540 FOR LEGS Q$=MID$(C$,K,1): UO 
=" "THENQS-" 
+845 D$=D$+Q$:NEXT 
+850 PRINT"[CLEAR]"Z"DATA"SC"ELEFT],"D$ DE 
*855 2-2%2:РОКЕ2,РЕЕК(2)-1:ТЕРЕЕК(2)-.ТНЕ 
NPRINT"RUN386" :M=2 : GOTO560. 
+86) PRINT"RUN825": PRINT" 
-895 REM ***DELETE OLD*** 
+90) РОКЕК+Н, 3: POKER, B: PRINT" [CLEAR ]"ТАВ( 
170)"[BLACK][s D][s E][s L][s E][s T][s 
E](SS][s 01(в Lis. D)[SS][s P][s R][s “Ж 
[s G][s R][s А][в М) 
*904 PRINTTAB(42)"[s A]S WRITTEN, NEW sm 
EENS WILL DISPLAY OL 
«906 PRINT'[RIGHT][RIGHT]ON SCREEN AT 348 
16 WITH [s R][s O][s M] IMAGE АТ 
*908 PRINT"[RIGHT][RIGHT]36864 AND PROGRA 
MMABLE CHARACTERS АТ"5РС(4)"32768. 
*914 PRINTTAB(42)"[s T]O DISPLAY &/OR SAV 
E ON DEFAULT AI 
*916 PRINT"[RIGHT][RIGHT]SCREEN, DELETE L 
INE 3[3"0"] AND DELETE BJ 
*918 PRINT"[RIGHT][RIGHT]OR REVISE [s ED 
KE 53272 VALUES TO POINT 
+920 PRINT"[RIGHT][RIGHT]TO YOUR [s R][s 
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*954 PRINTTAB(86)"1. 
cD 


A][s M] CHARACTER SET. NI 
-924 PRINTTAB(47)"([s H]IT ANY KEY TO PRO 


CEED) 


AG +926 PRINTTAB(7)"('[s R]' TO RETURN TO ME ET 
NU. 
Н „928 WAITW,H:GePEEK(631):POKEM, . : IFG-82TH 


EN416 AM 
+93) SYS49152:POKER+H, 10: PRINTTAB"[CLEAR] 
"TAB(250)"[RVSON][RED] OLD PROGRAM GONE! 
ІЧ НВ 
2935) ШАҚТАН а aed 710 RECOVER 0 
2m PROGRAM, ENTER IN"SPC(48)"DIRECT MODE 
JA 


ко -940 PRINT" [DOWN] [DOWN] [BLACK ] POKE43, 1: PO А 


KE641,1:POKEA4, 8: POKE642, 8: RUN" : END 

*945 REM ***SWITCH CUSTOM SETS*** CG 

+950 POKER+H, 7: POKER, 1: POKEA, 23: POKEBL, PE 
EK(BL)AND239 HD 

*952 PRINT"[CLEAR][c 4][DOWN]"TAB(251)"[s 
S][s W]{s I][s T][s C)[s H)[SS][s C)[s 
Tis S][s T][s 0][в M][SS][s S][s E][s - 


[s R)(s E][s G][s U] 
[s L][s АЈС R][SS][s C][s H][s Alls RIL 

s jue C](s Т][в E][s R][SS][s S][s E][s - 
T)" 


*956 PRINTTAB(46)"2. [s U][s P][s P][s E] 
[s R][SS][s A][s N][s D] LOWER [s C][s A 
Jis S][s E][SS][s S][s E][s T]"SPC(53)"3 

[s R][s E][s T][s UJ[s R][s NIJ[SS][s T 
(= oJSs][s М][в Е][в N][s U] ME 

+969 РКІМТТАВ(87)"((в P][s R][s Е][в S][s 
S])[SS][s N][s U][s M][s B][s E][s RJ[SS 
Jls Fils Olfs R)SS][s Clls MICs О][в 1) 
[s C][s E])":POKEBL, 27 


с *962 WAITW,H: Du ome e 
ORG>3THEN962 PC 
*963 ONGGOTO965, 966 OA 

AD +964 GOTO410 CJ 
*965 POKE685,208:SYS49213:CN=4:GOT0968 РІ 

DC -966 POKE685,216:SYS49213:CN=6 HO 


+968 PRINT" ([CLEAR]"TAB(242)". . . [s O][s 


К], SETS SWITCHED":FORTT-.TOl000:NEXT ЕЕ 
+970 O=,:GOSUB381:GOT0410 AA 
+999 REM ***MACHINE LANGUAGE*** OA 


E POKES3281 , 7: POKE53280,9: PRINT" [CLEA ıı, 

R 

*1004 PRINT"[CLEAR]"SPC(162)"[c 2][RVSON 
[4" "]";PRINT"[c 2][RIGHT][RIGHT [узо] ы 
[RVSOFF] [RVSON][sEP] [c *]" 

:1006 ТЕП кат наны ТҮЗДІ "yg 

VSOFF] [RVSON][4" "][c * PF 

+1008 deri [as л [RVSOFF 

] [RVSON] [RVSOFF] [RVSON] [RVSOFF] 


[RVSON] [c *][RVSOFF] [RVSON][sEP]" DN 


+1010 PRINT"[RIGHT][RIGHT][RVSON] [RVSOFF 
[RVSON][4" "][RVSOF 
[c *]" IN 


1 £RVSON] [RVSOFF] 
F][sEP][RVSON] [c *][sEP] [sEP] 


*1012 PRINTTAB(5)"[c *][RVSON] 


[RVSOFF][ 
sEP][RVSON] [RVSOFF] [RVSON][c *] [RVSO 


FF] [c *][sEP][RVSON] 
g" "|" 
*1014 PRINTTAB(9)"[RVSON] [RVSOFF] 
N] [RVSOFF] [RVSON][5" "][RVSOFF] 
Sox] Lo" "1" 
*1016 PRINTTAB(13)"[RVSON] [RVSOFF] [RVS 
ON][SS] [RVSOFF] [RVSON] [RVSOFF] [RVS 
ON] [RVSOFF] [RVSON] [RVSOFF] [RVSON][ 
RD MA 
+1618 PRINTTAB(17)"[RVSON] [RVSOFF] [RVS 
ON] [RVSOFF] [RVSON][SS][RVSOFF] [RVSO 
N] [RVSOFF] [RVSON] [RVSOFF][3" "][RVSO 
NIG" "(с жү" HK 
+1620 PRINTTAB(23)"[RVSON][SS][RVSOFF] | 
RVSON] [RVSOFF] [RVSON][3" "][RVSOFF] [ 
RVSON] [RVSOFF] [RVSON] " OE 
+1022 PRINTTAB(26)"[RVSON] [RVSOFF] [RVS 
ON] [RVSOFF)[3" ")[RVSON][3" "][RVSOFF][ 
sEP]" BE 
-1024 PRINTTAB(29)"[RVSON][S" "][RYSOFF] 
[RVSON][c *]":PRINTTAB(33)"[RVSON] [RVS 
OFF] [RVSON] " 
1025 PRINTTAB(11)"BY MARIE COON CN 
)"ТНЕ AHOY! STAFF" 
+1026 PRINT:PRINT:PRINTTAB(10)"[BLUE]ONE 
MOMENT PLEASE[3"."]" HH 
+1027 POKES2, 124: POKES6 124: CLR: POKES3265 


[RVSOFF] [RVSON][ 


[RVSO 
[RV 


27 HA 
B 1028 E$="BAD DATA": B=736;FORJ=.T031:READ 
А: POKEB+J, A:CK=CK+A:POKEB+J,A:NEXT JH 


*1030 IFCK<>S5O88THENPRINTE$:STOP:REM DATA 
1100 

+1035 B-49152:FORK-1TO4:CK-. 

1040 ЕОВ.)-.Т0255:КЕАПА:РОКЕВ--),А:СК-СК-А 
:NEXT 

*1045 READC:IFCK<>CTHENPRINTE$" IN BLOCK" 
K"LINE"PEEK (64 )*2564PEEK (63) : STOP EP 

*1050 B=B+256:NEXT EP 

+1055 СК=. :ЕОКЈ=.Т0160); READA : POKEB+J, A: CK 
=CK+A: NEXT LD 

+1060 IFCK<>20606THENPRINTE$" IN BLOCK 5" 
:5ТОР KK 

*1065 POKE685, 208:SYS49213:CLR: POKE686, 1: 
GOTO386 NN 

*1085 DATA144,5,28,159,156,30,31,158,129, 
149,150,151,152,153,154,155 KB 

+1090 DATA208,133,156,223,220,158,159,222 
3193,213,214,215,216,217,218,219 

*1095 REM *** BLOCK 1 *** 

«1100 DATA169,1,133,87,169,8,133,88,169,0 
,133,57,133,58,160,3 

*1102 DATA177,87,201,11,176,24,133,58,136 
5177,87,133,57,160,0,177 

*1104 DATA87,72,200,177,87,133,88,104,133 
,87,160,3,208,226,165,87 GL 

*1106 DATA133,43,141,129,2,165,88,133,44, 


HI 
KJ 


HJ 


141,130,2,96,173,14,220 FK 
*1108 DATA41,254,141,14,220,165,1,41,251, 
133,1,169,0,133,87,133 NF 
+1110 DATA89,173,173,2,133,88,169,128,133 


,90,162,8,160,0,177,87 BO 
*1112 DATA145,89,136,208,249,230,88,230,9 
0,202,208,242,165,1,9,4 IF 


*1114 DATA133,1,173,14,220,9,1,141,14,220 
,169,128,141,138,2,96 ом 
+1116 DATA173,14,220,41,254,141,14,220,16 
5,1,41,251,133,1,169,0 JK 
+1118 0АТА133,2,133,87,133,89,133,252,133 
,254,173,173,2,133,88, 169 GL 
-1120 DATA128, 133,90, 162, 0,160, 0, 169,8, B 
3,253,133,251,177,87,209 
+1122 DATAB9, 240, 2, 230, 252, 202, 240,32, a 
,198,251,208,240,165,252, 240 
*1124 DATA17,169,0,133,252,134,91,166,2,1 
65,254,157,0,197,230,2 ME 
+1126 DATA166, 91,230,254, 169,8, 208, 211,23 
9,88, 230,90, 198, 253, 208, 216 JF 
+1128 DATA165,1,9,4,133,1,173,14,220,9,1, 
141,14, 220,96, 169 LH 
-1130 DATA), 133,87, 133,89, 169,216, 133,88, 


HD 


169,124, 133, 90, 162, ^, 160, 31556 НЕ 
*1132 : DI 
*1134 REM *** BLOCK 2 *** EM 
*1136 DATA0,177,87,145,89,136,208,249,230 

,88,230,90,202,208,242,96 AP 
*1138 DATA169,0,133,87,133,89,169,216,133 

,88,169,124,133,90,162,4 DE 


"1140 DATA160,0, 177,89,145,87,136,208,249 
,230,88,230,90,202, 208, 242 JF 
+1142 DATA96, 169,49, 133,251,133, 253,141,17 
0,2,141,171,2,169,25, 133 EI 
“1144 DATA2, 169,136,133, 252,169,124,133, 25 
54,96,169, ii, 162, 71, 157, 7 
*1146 DATA216,202, 208, 250,169,32,162,71, 16 
57,7,4,202,208,250,169,8 
*1148 DATA133,89,169,4,133,90,160,0,132,8 
8,173,171,2,240,13,133 
-1150 DATAB7, 169, 40,56, 237,171,2,133,91, И» 
6,69,194, 132, 87, 140, 168 
+1152 DATA2, 146, 169,2,169,40,133,91,177, A 
51,201,32, 208, 45, 238, 168 MK 
*1154 DATA2,200,198, 91, 208,242,169,145,16 
4,88,145, 89, 198, 2, 208, 6 OA 
*1156 DATA169, 147,32, 210,255,96,230, 88, 24 
5165,251,105,40,144,4,230 ED 
*1158 рАТА252,230,254,133,251,133,253,160 
,0,240,193,201,34,208,3,238 LB 
*1160 DATA168,2,173,168,2,240,17,132,87,1 
69,157,164,88,145,89,230 IC 
-1162 DATAB8B, 206, 168, 2,208,245,164,87,177 
,253,41,15, 205, 167, 2, 240 CN 
-1164 DATA13,141, 167, 2,170,189,240,2,164, 
88,145,89,230,88,173, 170 
*1166 DATA2,240,17,164,87,177,251,201,128 


105 


LH 
DN 


AHOY! 


,176,32,206,170,2,164,88,34517 FC 
“168: DI 
*1170 REM *** BLOCK 3 жә 
+1172 DATA169,210,208,15,164,87,177,251,2 
01,128,144,15,238,170,2, 164 MD 
+1174 DATA88, 169, 146,145,89, 230,88, 164,87 
,177,251,41,127, 201, 34, 208 PO 
+1176 DATA2, 169,32, 164,88,145,89, 23,88, Д, 
98,91,240,101,230,87,165 
+1178 DATABB, 201, 60, 144,16, 200, 169,34, TM 
89,200,169, 59, 145,89, 165 
:1180 DATA87,141,171,2,96,164,87,177,251, 
201, 32,208, 7,238,169, 2 IH 
+1182 DATA208, 215,208, 154,173,169, 2,240,3 
1,240,147, 173,170, 2, 240,11 он 
+1184 DATA169,210,164,88,145,89,230,88,20 
6,170,2,169,32,164,88,145 AN 
+1186 DATA89, 230,88, 206,169, 2,208, 245,164 
187,177,253,41,15, 205,167 FJ 
+1188 DATA2, 240,214, 164,88, 141,167,2,170, 
189,240, 2, 145,89, 230,88 EL 
+1190 DATA208, 192, 169,34, 164,88, 145,89, 17 
3,169, 2,208, 5,200,169, 59 EB 
+1192 DATAL45, 89,198, 2, 208,6,169,59,200,1 
45,89, 96, 24,165, 251,105 JB 
+1194 DATMO, 144,4, 230,252, 230,254, 133,25 
1,133,253,169,0,141,171,2 ор. 
+1196 DATAIA1, 170,2,96,169,1,141,25,208,1 
62,130,160,12,173,18,208 РЕ 
+1198 DATAL6, 4, 162,1, 164,254, 142,18, 208, 
40,33, 208,173, 13,220, 41 
+1200 DATAL , 240,3, 76, 49,234, 76,188, 254, i 
9,0,133,89,165, 209,133 
-1202 DATAB7, 24,165, 210,101,4,133, 88,164, 
211,177, 209, 72,170,177,87,33015 IE 
+1204 + DI 
+1206 REM жк BLOCK 4 жж 
+1208 DATA133,91,173,134,2,145,87,24,177, 
209,105, 128,145, 209, 230,89 
+1210 DATA24, 165,162,105, 20,133,90,32, 228 
1255, 208,21, 165, 99,197, 162 HL 
+1212 DATA208, 245, 165,89, 240, 220,138,145, 
209, 165,91, 145,87, 198,89, 240 
+1214 DATA223,170, 104, 164,211,145,209,165 
,91,145,87,96,32,233,194,138 ор 
+1216 DATA201,133,144,25,201, 138, 208, 14,1 
64,211,132,165,136,177,209,133 CN 
+1218 DATA3, 165,214,133, 166, 138, 201,141, a 
76,3,133, 253,96, 41,127,201 
+1220 DATA33,144,5,173,134,2,145,87,173, 17 
41,2,201,4,240,6,138 ко 
+1222’ DATA32, 219,255, 208,199, 165,197,201, 
20), 208, 244,173,134, 2, 133,87 HE 
+1224 DATA32, 228,255, 240, 251, 174,141, 2,22 
44,240, 4,224, 2,208, 240 ср 
+1226 DATA62,15,221,224,2,240,8, 202,208, 
248,221,224, 2, 208,225,134 
+1228 DATA88,169,0, 133,89, 169,216, 133,90, 
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HN 


LP 


KB 


162,4,160,0,177,89,41 
:1230 DATA15,197,87,208,4,165,88,145,89,1 
36, 208,241, 230,90, 202, 208 о, 
+1232 DATA236,76,60,195,32,210, 255,32, 233 
,194,138,201,133,144,5, 201 DK 
-1234 DATA141, 176, 1,96, 169, 2,141,134, 2,13 
8,201,48,208,6,169,3 ВА 
+1236 DATAL41,134,2,138,41,127, 201,13, 208 
134, 169,17,32, 219,255,164 
+1238 DATA211, 177,209, 201,32, 208, 4,169, 14 
5,208, 201,169, 157,32, 219,255, 35397 
+1240 : DI 
+1242 REM Wk BLOCK 5 жж DP 
+1244 DATA164,211,177,209,201,32, 208, 243, 
169,29, 208, 184,261,17, 240,12 GE 
+1246 DATA201,29,240,8, 201,33, 144,175, 162 
,29,176,1,138,32,210,255 M 
+1248 DATA164,211,177,209,201,32,208,159, 
24,138,105,128,208,150, 169,0 
+1250 DATA133,91,133,163,169,128,133,164, 
160,3,165,3,24,10,38,91 
+1252 DATA136, 268, 250,133,163,24,165,164, 
101,91,133, 164,24, 160,30, 162 
+1254 DATAL,32, 240,255, 169,2,141,134,2,32 
,196,195, 169,69, 133,87 DK 
+1256 DATA169, 140,133,88,162,8,169,1,133, 
91,160,8,169,0, 133,92 
+1258 DATAI77,87, 201,48, 240,6,165,92,5, or 
1133, 92,6, 91,136, 208 
-1260 DATTA239, 165,92, 145,163, 230,163,208, 
2,230,164, 24,165,87,105,40 
+1262 DATA133,87,144,2, 230,88, 202, 208,205 
,164,165,166,166,24, 76,240,255 GE 
+1595 REM ***DISPLAY*** 
:1600 POKES6576,5:GOSUB126:POKER+H, 15: POK 
ER, 12: POKEA, 39 LE 
+1602 POKEBL, PEEK(BL)AND239: PRINT"[CLEAR] 
[BLACK]"TAB(131)"[s N][s E][s WI[SS]Is 5 
ls Cis R][s E][s El[s NI[SS][s D][s D 
[s S][s P][s L][s AJ[s Y]" 
+1603 PRINTTAB(B4)"[s T]O DISPLAY success ^ 
IVE SCREENS, FI 
+1604 PRINT"[A"[RIGHT]"]PRESS THE [s S][s 
P][s Ав C][s E] KEY. ы 
+1605 PRINTTAB(44)"[s P]RESS 'R' TO RETUR 
N CONTROL TO AH 
+1606 PRINT"[A"[RIGHT]"]THE FORMAT SCREEN 
AND ACTIVATE BI 
+1607 PRINT"[4"[RIGHT]"]THE CURSOR. 
+1609 PRINTTAB(44)"[s A]NY OTHER KEY WILL 
RETURN TO THE AB 
+1610 PRINT"[4"[RIGHT]"][s M]ENU, UNLESS 
THE LAST SCREEN IS LG 
+1611 PRINT"[A"[RIGHT]"]ON DISPLAY. 
JN THIS CASE, ANY 
+1612 PRINT"[A"[RIGHT]"]KEY BUT 'R' WILL 
RETURN TO THE"SPC(10) "МЕМО." : POKEBL, 27 
+1614 WATTW,H:GePEEK (631) : POKEN, . :ТЕС<232 


LD 


JL 


IL 


JB 


DL 


[s I 
MN 


EJ 
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THENPRINT" [CLEAR ]" : GOTO408 
*3000 POKES6576 , 5: POKE648, 136: POKE53272,3 
7 


OF 


DB 

+3001 М-198:Н-1:Е-53280:А-53272:Т-646 LP 

*60000 PRINT" [CLEAR ]":POKE646 ,X:SC=M: BC-Z 
1GOTO408 

*60002 POKEA,37:PRINT"[CLEAR]"TAB(46) "NEW 
SCREEN STARTS AT"SPC(60)"PROGRAM LINE # 
" 


FI 


FI 
“60004 PRINTTAB(46)"(HIT ANY KEY FOR DISP 
LAY)": RETURN 

*60006 FORJ-1TO 3 

*60008 READB: CH-3276848*B: PRINTCH: FORK-. T 
07:READA:POKECH&K, A: NEXT: NEXT 


FIDGITS 


FROM PAGE 39 


ОР 
HP 


*1 REM"[c A][30"[s *]"][c S]" LE 
*2 REM"[s B][11" "]FIDGITS[12" "][s B]" HD 
*3 REM"[s B] BY WALTER E. MEYERS 1985[3 


" "(s p]" 
*4 REM"[c Z][30"[s *]"][c X]" 

*5 POKE 56576,PEEK(56576) OR 3:POKE 53272 
,21:POKE 648,4:PRINT "[CLEAR]":POKE 5328 
1,15 

*10 POKE 53280,15:DIM B$(26),NO(26),F$(4) 
»M$(2):FOR I=1 TO 129:READ A$:NEXT HJ 
*15 5-54272:60Т0 1000 ІР 
420 ТЕ N<8 THEN LN=0:COL=(N*4)+2:RETURN BJ 
“30 IF М<17 THEN NN=N-8:LN=8:COL=(NN*4)+2 
: RETURN 

+40 NN=N-17:LN=16:COL=NN*4:RETURN 

*50 POKE 781,LN:POKE 782,COL:POKE 783,0:5 
YS 65520:RETURN 

*60 FOR С-5 TO 5%24:РОКЕС,0:МЕХТ: RETURN 
*70 READ H,L,DR:POKE S+1,H:POKE S,L:POKES 


BN 
JI 


KJ 


FK 


KJ 


+4,17 CJ 
«80 FOR Т-1 TO DR:POKE $415,63:NEXT:POKE 
S+4, 20: RETURN NI 


*90 N=INT(RND(O)*26)+1: RETURN PM 
*99 REM TITLE PAGE NK 
100 PRINT"[CLEAR]":GOSUB 60:FOR I=1 TO 6 
:PRINT:NEXT:FOR Jel TO 3:FOR І-1 TO 4 
110 PRINT F$(I) SPC(18) F$(I);:NEXT:NEXT 
:LN=11:COL=18:GOSUB 50:PRINT B7$ 

*120 M=1:LL=8:N=12:FOR І-1 TO 30:LN=6:COL 
=18:GOSUB 50:PRINT M$(M) DB 
*130 LN=LL:COL=12:GOSUB 50:PRINT WL$:COL= 
23:GOSUB 50:PRINT WR$ Lí 
+140 GOSUB 90:HI=INT(NO(N)/256) :LO=NO(N)— 
(HI*256):POKE S45,0:POKE S+6,240 

150 POKE S+24,15:POKE S+1,HI:POKE S,LO:P 
OKE S+4,17 AN 
“160 FOR Т-1 TO 50:МЕХТ:РОКЕ S+4,16:LL=AB 
S(17-LL) :M=ABS(3-M) : NEXT FO 


PH 
DN 


HJ 


esitalia.net 
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*170 GOSUB 60:FOR T-1 TO 100:NEXT РА 
*299 REM ------------------ INSTRUCTIONS HH 
“300 PRINT "[CLEAR] [DOWN] [DOWN]": FOR 1-1 

TO 4:PRINT F$(I) SPC(18) F$(I);:NEXT:PRI тб 
NT 

*310 PRINT"[c 4][5" "]FIDGITS ARE LIKE ВА 
BY BIRDS, ONLY[DOWN][4" "]SQUARER. WHEN 


THEY GET"; PG 
+320 PRINT" HUNGRY, THEY[DOWN][4" "]SING 
FOR THEIR SUPPER. TO QUIET THE[DOWN][4" 
"SINGING"; DA 
+330 PRINT" FIDGIT, YOU FEED IT BY PRES-[ 
DOWN][A" "]SING THE KEY WITH THE SAME"; MN 
BJ +340 PRINT" LETTER AS[DOWN][4" "]THE FIDG 
IT. 
+399 REM —-—-—— ----- LOAD CUST FONT EJ 


+400 FOR I=) TO 3 

NEXT 

*410 POKE 56334,PEEK(56334) AND 254:POKE 

1,РЕЕК(1) AND 251:5Ү5 49152 NE 

*420 POKE 1,РЕЕК(1) OR 4:POKE 56334 n. 

56334) OR i 

*430 READ A:IF A=999 THEN 450 

*44(0 FOR I=) TO 7:READ B:POKE 143364 (A48) 7 

+1,B:NEXT:GOTO 430 

+450) PRINT:PRINT " [c 5][RVSON] HIT ANY 

KEY WHEN READY TO CONTINUE." 

*460 GET А5:ТЕ А$="" THEN 460 HJ 

*470 PRINT CHR$(147):POKE 53272,(РЕЕК(532 

72) AND 240) OR 14 IL 

*499 REM --- SET UP SCREEN CB 

+500 GOSUB 6 KES45,9:POKE S+24,15:PRIN 

T CHR$(147) SPC(6); 

*510 RESTORE:FOR І-1 TO 7: PRINT HC$;B$(I 

);"[RVSOFF] [7"[UP]"]"; :GOSUB 70:NEXT 

*520 PRINT:PRINT"[7"[DOWN]"] "; 

*530 FOR I=8 TO 16:PRINT HC$;B$(I);"[RVSO 

FF][7"[UP]"]"; :GOSUB 70:NEXT: PRINT: PRINT 

"[6" [DOWN]"]" KI 

*540 FOR I-17 TO 22:PRINT HC$;B$(I);"[RVS 

OFF][7"[UP]"]";:GOSUB 70:NEXT AA 

+550 PRINT HC$;B$(23);"[RVSOFF][7" [UP]" ]" 

;:FOR I=23 TO 25:GOSUB 70:NEXT 

25620 PRINT HC$;B$(24); gg SOFI LUP ТД 
3:GOSUB 70:FOR J=25 TO 2 

-570 PRINT HC$;B$(J); MERVSOFFI[7"[UP]"]"; " 

:ЕОК I-1 TO 2:GOSUB 70:NEXT:POKE 5+4, 20 

:NEXT KG 

*580 FORI=1 TO 13:GOSUB 70:NEXT:GOSUB 60 СА 


EAD A:POKE 49152+I, A: 
JE 


AH 


CN 


СА 
XM 


С *598 POKE 808,234:REM 


*NOTE: DISABLES STOP AND STOP/RESTORE КМ 

*599 REM MAIN LOOP OP 

:600 WL-99:GOSUB 90:RN-N:HI-INT(NO(N)/256 
):LO-NO(N)-(HI*256) HK 

*610 GOSUB 20:RL=LN:RC=COL:GOSUB 50:PRINT 
HO$:POKE 5+5,0:РОКЕ S46,246 


AHOY! 107 
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*620 РОКЕ S+24,15:POKE S+1,HI:POKE S,LO:P 


ОКЕ S+4,17:POKE 198,0 IM 
*630 GET N$:IF N$="" THEN 630 10 
“640 N-ASC(N$):IF N=133 THEN 760 EP 
*650 IF N<65 OR N>90 THEN 630 EH 


*660 N=N-64:IF WL<>99 THEN LN=WL:COL=WC:G 
OSUB 50:PRINT HC$ AE 
*670 IF N-RN THEN LN-RL:COL-RC:GOTO 690 
*680 GOSUB 20:WL=LN:WC=COL:GOSUB 50:PRINT 
HS$:GOTO 630 
+69 GOSUB 50:PRINT HC$:SC=SC+1:POKE 5+4, 
16:1F SC<10 THEN 600 CB 
*700 GOSUB 60:GOSUB 900:PRINT:GOSUB 950:P 
OKE 808,237:POKE 198,0 BG 
*710 GET A$:IF A$="" THEN 710 JP 
*720 IF A$<>"Q" THEN SC-0:GOTO 500 KC 
*739 REM —------------------ -- END GAME СК 
*74( GOSUB 900:PRINT:GOSUB 980:LN=3:FOR I 


FI 


=1 TO 21:POKE 781,LN:POKE 782,13 LK 
*750 POKE 783,0:SYS 65520:PRINT WL$:FOR T 
=1 TO 100:NEXT:LN=ABS(5-LN) : NEXT HJ 


*760 POKE 808,237:POKE 53272,21:POKE 648, 
4:PRINT "[CLEAR][c 7]":POKE 53281,6:POKE 


53280,14 HB 
*770 GOSUB 60 LF 
*899 REM — — NEST SBRTN KO 


900 PRINT"[ : 
18) ВІ$:РКІМТТАВ(18) B2$:PRINTTAB(16) LE 
ЕТҘ(МЕ$,3); 

“910 PRINT B3$ LEFT$(NE$,3):PRINTTAB(13) 
LEFT$(NE$,6) B4$ LEFT$(NE$,6) 

+920 PRINTTAB(11) LEFT$(NE$,6)"(RVSOFF]" 
B5$ LEFT$(NE$,6):PRINTTAB(10) LEFT$(NE$, 
4); 

930 PRINT "[RVSOFF]" B6$ LEFT$(NE$,4):PR 
INTTAB(8) NE$:PRINTTAB(9) LEFT$(NE$,22) NJ 
+940) PRINTTAB(10) LEFT$(NE$, 20) : PRINTTAB( 
11) LEFT$(NE$, 18) : RETURN GN 
*949 REM ----------------- BANNER SBRTNS EA 
«950 PRINTTAB(9)"[RVSON][RED] [s G][s H][ 

c A][s S][c A][s I] [c А][в I][s C][s D 
в Ul[s 1][з A][s A][s G][s H] [s A] ": 
PRINTTAB(9)"[RVSON] [c M][c H][c Q][s S] 

[s B][s В] [c Q][s mi ЕЛДЕ ng er 
5](е 0][с W][c M)tc H] [ 

+96) PRINTTAB(9)"[RVSON] n lits F][c az 

s S][s X][s X] [s Х][в X][s b F][s J 
][s K][s X][s X][s E][s F] [s W] ":PRINT 
TAB(6)"[c 4][DOWN]HIT '[BLUE]Q[c 4]' TO 
QUIT"; DB 
*970 PRINT" OR ANY OTHER":PRINTTAB(12)"KE 
Y TO PLAY AGAIN.":POKE 198,0:RETURN 

*980 PRINTTAB(11)"[RVSON][RED] [c A][s I] 
[s Alls Al[c А11в S] [c A][s I][s Alls 
Alc А][в S] [s A] ": PRINTTAB(11) " 
[RVSON] [c 0115 Z][s M][s Nl[c Q][s S] 
[c 9118 Z][s M][s N][c Q][s S] [s B] " 


GE 


KA 


*990 PRINTTAB(11) "[RVSON] [c Z][s K][s E 
108 AHOY! 


lis Ес 2115 S] [c Z][s K)[s El[s F][c 
Z][s S] [s W] ":RETURN DL 


ony) rere m eS STRINGS HH 
:1000 HC$="[4" "] [DOWN] [4"LLEFT]"] [WHITE] 
[s U][s C][s C][s I][DOWN][ 4" [LEFT]"][s 
B][BLACK ][RVSON]**[WHITE][ RVSOFF][s В)(0 
OWN][A"[LEFT]"][s B][c 1][RVSON]SZ[WHITE 
J[RVSOFF][s B][DOWN][A"[LEFT]"][s J][c R 
Пе R][s K][DOWN][ A" [LEFT]"]" 
+1010 HO$="[WHITE][s U][s C]{s C]{s I][DO 
WN)[A"LLEFT]"][s B)[RED][RVSON][sEP][c * 
J[RVSOFF][WHITE][s B][DOWN][ 4" [LEFT]"][s 
B][RED][c *]{sEP][WHITE][s B][DOWN][4"[ 
LEFT]")[s J]c R][e Е][в K][DOWN][4"[LEF 
TI") [s -][s =] " NH 
+1015 HS$="[4" "][DOWN)[A" [LEFT]"] [WHITE] 
[RVSON]9[RVSOFF][c P][c P][RVSON]OLDOWN] 
ГА" [LEFT ]" J1 [BLACK ]22[WHITE]3[ DOWN] га" 
EFT]"]4[c 1]$2[WHITE]5[ DOWN] LA" [LEFT ]"]{ 
RVSOFF] Ls іе R][c R][s K][DOWN] [A"[LEF 
CP 


T]"]" 


FN 


*1020 B$(1)e"[RVSON][BLACK]&[s U][s I]'[D 
OWN][4"[LEFT]"] [c Q][c W] [DOWN ][4"[LEF 
T]"] [s X][s X] " BN 
*1030 B$(2)e"[RVSON][RED]&[c A][s I]'[DOW 
N]UA"(LEFT]"] [c 0][в Z] LOMA] ¢ 
"] [e Zl[s K] " 

:1040 B$(3)="[RVSON][PURPLE]&[s U][s I] 
DOWN][4"[LEFT]"] [s B] [poma 

] [s J](s K] " 


MK +1050 B$(4)="[RVSON][BLUE]&[c A][s I]' m 


WNJ[4"[LEFT]"] [s B][s B] [DOWN][4"[LEFT 


]"] (c Z)[s К] " GH 
JL «1060 BS(5)="[RVSON][c 1]&[с A][s S]'[DOW 
N][A"[LEFT]"] [c 0][в S] [DOWN][A" [LEFT] 
"Wc [sis] 4 LD 
+1070 BS(6)="[RVSON][c 2]&[c A][s 5]' (DOW 
ШЕШЕНІ [c 0][в S] [DOWN][A"LLEFT] Y 
"118 5 
+1080 B$(7)e"[RVSON][c 3]&[s U][s I]'[DOW 
N][A"[LEFT]"] [s B][c S) [DOWN] [ 4" [LEFT] 
"] [s J][s K] " CM 
«1090 B$(B)-"[RVSON][c 5]&[s A][s A]'[DOW 
NJ[4"[LEFT]"] [c Q][c W] [DOWN][A" [LEFT] 
"] [s X][s X] " 00 
+1100 B$(9)-"[RVSON] [GREEN J&[ s Sits р)'[р 
OWN][4"[LEFT]"] [c M][c H] [DOWN][4" {LEF 
T]"] [s E][s F] " FL 


*1110 B$(10)-"[RVSON][RED]& [s A]'[DOWN][ 
4"[LEFT]"] [s B] [DOWN][A"[LEFT]"] [s J 
Jis K] " IH 
*1120 B$(11)-"[RVSON][BLACK]&[s A][s A]'[ 
DOWN ][ 4" [LEFT ]"] [c 9115 21 [DOWN][4"[LE 
ny pA Га К | DM 
*1130 B$(12)-"[RVSON][PURPLE]&[s A] '[DOW 
N][A"[LEFT]"] [s B] [DOWN][4"[LEFT]"] [ 
c Z][s S] " MD 
*1140 B$(13)-"[RVSON] [BLUE]&[ ] ' [DOWN] [4"[ 
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LEFT]"] 78 [DOWN][A"[LEFT]"] :; " 

«1150 B$(14)-" [RVSON][GREEN]&[c A][s I]'[ 

DOWN] [4"[LEFT]"] [s B][s B] [DOWN][4"[LE 

ЕТІ" [s X][s x] " 

+1160 BS(15)-"[RVSON][c 1148 U][s I]'[DO 

WJC4"ELEFT]"} [s B][s B] [DOWN] [4"[LEFT 

]"] [s J][s K] " 

+1170 B$(16)-"[RVSON][c 2]&[c A][s I]'[DO 

рири [с 9115 K] [Dow Га" шт 
5 

+1186 B$(17)-"[RVSON][c 1]&[s U][s I]'[DO 

WN][4"[LEFT]"] [s B][s B] [DOWN][A" [LEFT 

]"] [s J][s Q] " 

+1190 B$(18)-"[RVSON][RED)&[c A][s I]'[DO 

WN][4"[LEFT]") [e Q][s 2) [DOWN] [4"[LEFT 


ON 


+1200 B$(19)«" [RVSON][BLUE]&[s U][s I]'[D 
OWN]CA"CLEFT]"] [s J)ts I] [DOWN][A"[LEF 
T]"] [s J][s K] " 
*1210 B$(20)-" [RVSON][PURPLE)&[s G][s Н)" 
[DOWN][4"[LEFT]"] [c M][c H] [DOWN][4"[L 
EFT]"] [s E][s F] " BE 
+1220 BS(21)-"[RVSON][c 5]&[s A][s A]'[DO 
WNJ[4"(LEFT]"] [s B][s B] [DOWN][A" [LEFT 
1"] (s J][s K] " DJ 
+1230 B$(22)«" [RVSON][GREEN]&[s A][s А]'[ 
DOWN J[4"[LEFT]"] [s В][в В] [DOWN)[4"[LE 
FT]"] [c G][c N] " 
+1240 B$(23)«" [RVSON] [RED ]& [UPARROW] [ BACK 
EA DONT ANDERE" 78 [DOWN] (4"[LE 
ЕЈ <>" 


HL 


MB 


41320 WR$="[WHITE][5" "][DOWN][5"[LEFT]"] 
[s U][3"[s *]"][c S][DOWN][5"[LEFT]"][s 
B] [c R][s KJ[DOWN][5"(LEFT]"][c X] [c 
R]Is K][DOWN][4"[LEFT]"][s *][з *][в K][ 
DOWN][3"[LEFT]"][3" "][c 4]" KP 
*1330 F$(1)e"[RED][s U][s ils S] [с S] 
[в S][3" "]":F$(2)-"[s +] [c S][s U)[c V 
J{s 0][с S][c S][s +][s U][s I]":F$(3)-" 
[c E] [c Els J][c E][s J][c V][c E][s J 
1[в J][s 1)" HA 
+134) F$(4)="(5" "][s J][s K] [s J][s К] 
"3M$(2)="[c 1][RVSON][c *][RVSOFF] [RVS 
ON][sEP] [DOWN ] [5" [LEFT ]" ] [WHITE] [RVSOFF ] 
[s UJ[RVSON] [c 1] [c *][sEP] [RVSOFF][WH 
ITE][s I]" 
*1350 M$(1)="[c 1] [RVSON][sEP][c *][RVSO 
FF] [DOWN)[5"(LEFT]"](WHITE][s U][RVSON] 
[c 1][sEP] [c *][WHITE][RVSOFF][s I][DO 
WN][6"[LEFT]"][s B] [BLACK][s Q][WHITE] 
[s B][DOWN][6"[LEFT]"][s В][4" "(в B][ 
DOWN][6"[LEFT]"][s J][s *][c S][c A][s * 
Цв К)" IF 
*1399 REM ------------- NOTE FREQUENCIES BK 
:1400 NO(1)=4291:NO(2)=4547:NO(3)=4818:NO 
(4)=5103:NO(5)=5407 :NO(6)=5728 
1410 NO(7)=6970:NO(8)=6431:NO(9)=6813:NO 
(19)=7218:NO(11)=7648:NO(12)=8102 
+1420 NO(13)=8584:NO(14)=9095:NO(15)=9634 
1N0(16)-10208:N0(17)-10815:N0(18)211458 РС 
*1430 NO(19)=12139:NO(20)=12861:NO(21)=13 
625:NO(22)=14436:NO(23)=15294 


GM 


DH 
AE 


PN 


+1250 а реа &[s A](s AL *1440 NO(24)=16204:NO(25)=17167:NO(26)=18 
DOWNJ[4"[LEFT]"] [s V][s 2] [DOWN)[A"[LE 188 LG 
FT]"] [s X][s X] " NN +1450 GOTO 100 CF 
:1260 ТАНБА 2]&[s A][s A]'[DO +1999 REM ———--—--—-—- MUSIC DATA GH 
WN][A"[LEFT]"] [s M][s N] [DOWN][4"[LEFT +2000 DATA 33,136,24,33,136,24,50,61,24 НВ 
]"] [s E][s F] " DF *2010 DATA 50,61,24,56,100,24,56,100,24 DN 
*1270 B$(26)»"[RVSON][BLUE]&[s R]6' [DOWN] ‘2020 DATA 50,61,48,44,194,24,44,194,24 IH 
(4"[LEFT]"] [c Ү][с Û] [DOWN][A"LEFT]"] +2030 DATA 42,63,24,42,63,24,37,162,10 МА 
[c 01851" EE +2049 DATA 37,162,10,37,162,10,37,162,10 IP 
*1280 Bl$="[WHITE][s U][s *][s *][s I]":B .2050 DATA 33,136,48,50,61,24,50,61,24 МА 
2$-"[WHITE][s B][BLACK][RVSON]**[WHITE][ +2060 DATA 44,194,48,42,63,24,42,63,24 АА 
RVSOFF][s B][c 2]":B3$-"[RVSOFF][WHITE][ +2070 DATA 37,162,48,50,61,10,50,61,10 KJ 
s B][c 1][RVSON]SZ[WHITE][RVSOFF][s B][c >2080 DATA 50,61,24,44,194,48,42,63,24 ТО 
2]":B4$2"[RVSOFF][WHITE][s J][c R][c R] +2090 DATA 42,63,24,37,162,48,33,136,24 ЕР 
[s K][c 2]" DN +2100 DATA 33,136,24,50,61,24,50,61,24 LK 
11290 B5$-" [RVSON][RED]& '[RVSOFF][c 2 +2110 DATA 56,100,24,56,100,24,50,61,48 ЕН 
] ":B6$="[5" "][RVSON][RED][4" "][RVSOF +2120 DATA 44,194,24,44,194,24,42,63,24 ҒА 
F][c 2][5" "]":NE$="[RVSON]())[3"("]))() *2130 DATA 42,63,24,37,162,24,37,162,24 ОЕ 
0)0000(CO)" LA *2140 DATA 33,136,48 FF 
+1300 B7$-"[GREEN][RVSON][sEP] (с *][DOW ^ +2999 REM ------------------ COPY DATA JE 
*3000 DATA 169,0,133,251,133,253,169,208 HB 


Шеш" "J [DOWN] 4" [LEFT] ] 4" 
41310 WL$="(WHITE][5" "][DOWN][5"[LEFT]"] 


HJ 


“3010 
“3020 


DATA 133,252,169,56,133,254,162,16 
DATA 160,0,177,251,145,253,136,208 


[c A][3"[s *]"][s I][DOWN][ 5" [LEFT]"][ s *3030 DATA 249,230,252,230,254,202,208 AD 
J][c R] [s B][DOWN][4"[LEFT]"][s J][c R *3040 DATA 240,96 LN 
ІШЕ Z][ DOWN] LS" [LEFT] ][s J]Is *][s *][ *3099 REM ------------- CUSTOM FONT DATA NH 
DOWN][3"[LEFT]"][3" "] JC “3155 DATA155,255,255,255,0,0,12,12,12 JL 
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IMPORTANT 


*3156 

1255 
*3157 
*3158 


DATA156,255,255,255,255,255,255,255 
IO 


DATA157,255,255,255,7,3,33,48,48 МС 
DATA158,255,255,255,12,12,12,12,12 AP 


+3159 рАТА159,255,255,255,48,48,48,48,48 DD 
+3164 DATA164,63,113,57,31,15,7,3,1 NN 
+3165 DATA165, 252,142,156, 248,240, 224,192 
‚128 РН 
+3166 DATA166,15,15,7,15,31,63,127,255 CO 
+3167 DATA167,240,240,224,240,248,252,254 
,255 EI 
*3168 DATA168,49,155,206,236,63,115,206,7 
2 FG 
+3169 DATA169,140,217,115,55,252,206,115, 
18 ME 
+3170 DATA170,126,231,0,60,126,60,0,0 АЕ 
*3175 DATA175,0,0,0,0,0,0,7,15 IL 
+3176 DATA176,0,0,0,0,0,0,224,240 FC 
+3177 0АТА177,28,24,24,12,12,24,48,48 DN 
+3178 DATA178,60,102,195,24,60,60,60,24 ЕВ 
+3179 DATAl79,56,24,24,48,48,24,12,12 АО 
+3189 DATA189,24,28,14,7,7,14,28, 24 DG 
+3181 DATA181,24,56,112,224,224,112,56,24 JE 
«3182 DATA182,255,255,255,3,3,135,135,15 NN 
+3183 DATA183,12,12,12,12,12,12,12,12 РІ 
+3184 DATA184,48,48,48,48,48,48,48,48 — HD 
*3185 DATA185,0,0,0,0,0,0,3,7 HC 
+3186 DATA186,12,12,12,12,12,255,255,255 BM 
*3187 DATA187,48,48,48,48,48,255,255,255 ВЕ 
*3188 DATA188,12,12,132,192,224,255,255,2 
55 РО 
+3190 DATA190,48,48,33,3,7,255,255,255 ЕР 
*3193 DATA193,255,255,255,195,195,195,195 
195 BI 
+3194 DATA194,195,195,195,195,195,195,195 
195 с 
+3195 DATA195,255,255,255,252,252,252,252 
,252 HK 
*3196 DATA196,255,255,255,63,63,63,63,63 DL 
*3197 DATA197,252,252,252,252,252,255,255 
255 NA 
+3198 DATA198,63,63,63,63,63,255,255,255 СН 
*3199 DATA199,255,255,255,128,128,252,252 
‚252 ю 
«3200 DATA200,255,255,255,1,1,63,63,63 СМ 
«3201 DATA201,255,255,255,15,7,131,195,19 
5 л 
+3202 DATA202,195,195,193,224,240,255,255 
,255 о 
«3203 DATA203,195,195,131,7,15,255,255,25 
5 AA 
*3205 DATA205,195,195,225,240,248,252,252 
,252 LD 
*3206 DATA206,195,195,135,15,31,63,63,63 PC 
+3209 DATA209,3,3,3,1,0,241,251,255 DJ 
+3210 DATA210,255,255,255,192,192,255,255 
10 AHOY! 
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‚255 BN 
*3211 DATA211,255,255,255,3,3,255,255,255 JM 
*3213 DATA213,255,255,255,240,224,193,195 т 
,195 D 
*3214 DATA214,195,195,225,240,240,225,195 
‚195 1р 
+3215 
‚255 
+3216 
‚255 
“3218 
95 
+3229 DATA229,195,225,240,248,252,255,255 
‚255 IM 
*3234 DATA234,195,135,15,31,63,255,255,25 
3 OL 
*3235 
,195 
*3236 
,195 
*3237 
‚255 
*3238 
“3240 
,195 
“3241 
“3242 
“3243 
“3247 
,240 
“3248 
“3249 
‚255 
+3999 


SELECTACHROME 


FROM PAGE 17 


DATA215,255,195,129,129,195,255,255 

PG 
DATA216,195,195,195,195,195,255,255 

NC 
DATA218,195,195,135,15,15,135,195,1 

PO 


DATA235,195,195,195,192,192,195,195 

HE 
DATA236, 255, 255, 255,195,195,195,195 

JM 
DATA237,195,195,195,192,192,255,255 

BB 


DATA238, 255, 255,255,3,3,195,195,195 КІ 
DATA240,255,255,255,192,192,195,195 
IF 
DATA241,195,195,195,0,0,255,255,255 СА 
DATA242,255,255,255,0,0,195,195,195 ID 
DATA243,195,195,195,3,3,195,195,195 ML 
DATA247,255,254,254,252,252,248,248 
LB 
DATA248,15,31,31,63,63,127,127,255 ОЕ 
DATA249,240,225,225,192,192,255,255 
IB 


DATA 999 СР 


+10 REM**INIT#* FN 
*12 DIMT(15),N$(15),S$(15), T$(15) OE 
*14 С(0)-1:С(1)-3:С(2)-0:С(3)-6 НЕ 
“16 FORI=(T015:READS$(I):NEXT GD 
*18 FORI-GTO15:READT$(I):T(I)-VAL(T$(1)): 

NEXT JD 
*20 FORI-GTO15:READNS(I):NEXT GO 
+30 REM**DATA** FL 
*32 DATA0,1,2,3,4,5,6,7,8,9,10,11,12,13,1 

4,15 FL 
*34 DATA 144,5,28,159,156,30,31,158,129,1 

49,150,151,152,153,154,155 KB 
*36 DATA BLACK,WHITE, RED, CYAN, PURPLE, GREE 

N, BLUE, YELLOW EA 
*38 DATA ORANGE, BROWN,LT.RED,GRAY1,GRAY2, 

LT.GREEN, LT. BLUE, GRAY3 NB 
“50 REM**DISPLAY** FE 
*52 РОКЕ53280,С(0):РОКЕ53281,С(1) EJ 
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+54 PRINTCHR$(147)CHR$(T(C(2))) : PRINT IA 
+56 PRINTTAB(9)CHR$(18)" SELECTACHROME ": 

PRINT:PRINT:PRINT JE 
+58 PRINT'CONTROL'TAB(12) "COLOR"TAB(25)"C 

OMMAND"': PRINT XM 
“60 PRINT:PRINT"Fl BORDER ="; LN 
+62 PRINTC(O)TAB(15)N$(C(0) )TAB(25) ; NC 
+64 PRINT'POKE53280, S$(C(0)) NC 
*66 PRINT:PRINT"F3 SCREEN ="; LH 
+68 PRINTC(1)TAB(15)N$(C(1))TAB(25) ; IK 
+70 PRINT"POKES3281, "S$(C(1)) OI 
*72 PRINT:PRINT"F5 TEXTI ="; JC 
-74 PRINTG( 2) TAB(15)N$(C(2)) TAB(25); kK 
+76 PRINT"PRINTCHRS("; AI 
+78 PRINTT$(C(2))")" KK 
+80 PRINTCHR$(T(C(3))) BM 
+82 PRINT"F7 TEXT2 ="; KH 
+84 PRINTC(3)TAB( 15)N$(C(3))TAB(25); HK 
+86 PRINT" PRINTCHR$("; AI 
*88 PRINTT$(C(3))")" KH 


*90 PRINT:PRINT:PRINT" HIT FUNCTION KEYS 
TO CHANGE COLORS" EL 


*100 REM**CHANGE COLORS** NP 
+102 GETK$: LFK$s""THEN1O2 GK 
“104 K=ASC(K$)=-133: IFK<OORK>7THEN1O2 GM 
+106 M=INT(K/4) :N=K-M*4 K 


TE ІЕМ=0ТНЕМС(М)=С(№)+1: LIC QOPISTEENGG |, 
N)=0 

+110 IFMTHENC(N)=C(N)-1: O ^ 
15 EC 


*112 607050 


GATORS N SNAKES 


FROM PAGE 41 

“5 РХ=53281 

10 1(0)21350:L(1)21510:1(2)21670:L(3)218 
30:С01,-54272:1,0С-1.(0):К-0:1.У-1:Аб-0 

:20 S1D=54272:SH=SID+1 :SL=SH+3 :W1=33:W2=3 
2:PRINT" [CLEAR] [ YELLOW ] [ 6" [ DOWN ]" ]" : POKE 
РХ,11:РОКЕРХ-1,0 

«25 FORI=SIDTOSID+24:POKEI ,:NEXT:POKE542 
96,15: POKE54277 ,0: PORESH45, 240 

“30 POKES6, 39:C=PEEK(53279) : POKE50002 , 0 
“40 SN$-"[Ó" "ICA TOR S N SNAKE 
5 


+45 FORI-1TO34:PRINTRIGHT$(SN$, 1) ; " [UP]" : 
FORT-1TO60: NEXT: POKESL, 129: POKESH, 7: POKE 
SID,255 
*47 NEXT:POKESL, 128 MJ 
X PRINTTAB(12)"[3"[DOWN]"]BY JIM SANDER 
MC 
0 PRINTTAB(14)" [DOWN] [DOWN ]ONE MOMENT[3 
","][HOME]":GOSUBA5O:REM READ SPRITES/CH 
ARSET/ML 
*70 PRINT" [CLEAR]":K20:SC-0:C-PEEK(53279) 
:РОКЕ50002,0:РОКЕ49203,11-І.У:НТ-0 СЕ 
«80 РОКЕ53265,РЕЕК(53265)АМ0239:РОКЕРХ,11 GA 


PD 


HI 
GK 


NN 


MC 
LK 
DJ 


PB 


IO 
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+90 PRINT" (WHITE][RVSON] SCORE ";TAB(37)" 
i FM 


[c 2][RVSON] 


[WHITE]" 


-100 PRINT"[RVSON][7" "]";TAB(37)"[c 2] 


[WHITE]" 


+110 PRINT"[RVSON][3" "]HI 


2] [WHITE]" 


"3 TAB(37)"[c 
LI 


+120 PRINT"[RVSON] SCORE ";TAB(37)"[c 2] 


[WHITE]" 


GA 


“130 PRINT"[RVSON][ 7" "]";TAB(37)"[c 2] 


[WHITE]" 
*140 PRINT"[RVSON]G[6" 


CL 
"J"; TAB(37)" [RVSOF 


F][YELLOW][s V][RVSON][YELLOW] [WHITE]" JE 


+150 PRINT"[RVSON JA[6" 
[WHITE]" 

-160 PRINI"[RVSON]T[6" 
[WHITE]" 

+170 PRINT"[RVSON ]o[6" 
[WHITE]" 

+180 PRINT"[RVSON]R[6" 
[WHITE]" 


+190 PRINT" [RVSON]S[6" 


"]"; TAB(37)"[c 2] 
"]";TAB(37)"[c 2] 
"]"; TAB(37)"[c 2] 
"]";TAB(37)"[c 2] 
"J"; TAB(37)" [ RVSOF 


GN 


F][YELLOW][s V][RVSON][YELLOW] [WHITE]" LA 
*200 PRINT"[RVSON][7" "]";TAB(37)"[c 2] 


[WHITE]" 
210 PRINI"[RVSON]N[6" 
[WHITE]" 


CL 
"]";TAB(37)"[c 2] 


*220 PRINT"[RVSON][7" "]";TAB(37)"[c 2] 


[WHITE]" 
+230 PRINT"[RVSON]S[6" 
[WHITE]" 
+240 PRINT"[RVSON]N[6" 


"]";TAB(37)"[c 2] 
"]"; TAB(37)" [RVSOF 


F][YELLOW][s V](RVSON][YELLOW] [WHITE]" HN 


+250 PRINT"[RVSON]A[6" 
[WHITE]" 

-260 PRINI"[RVSON]K[6" 
[WHITE]" 

27) PRINI"[RVSON]E[6" 
[WHITE]" 

280) PRINI"[RVSON]S[6" 
[WHITE]' 


"]";TAB(37)"[c 2] 

GN 
"]"; TAB(37)"[c 2] 

HH 
"]";TAB(37)"[c 2] 

JB 
"]"; TAB(37)"[c 2] 

LP 


+290 PRIDE [RVSON][7" "]"; TAB(37)" [RVSOFF 


][YELLOW][s V][RVSON][YELLOW] [WHITE]" 


HM 


+300 PRINT"[RVSON]LEV."LV;TAB(37)"[c 2] 


[WHITE]" 


JB 


+310 PRINT"[RVSON][7" "]";TAB(37)"[c 2] 


(WHITE) [HOME ]" 
+320 FORI=0T04 


CA 


Jc 
“330 PRINTTAB(18)"[RVSON][GREEN][3"[s X]" 
FM 


Ј(КУЅОЕЕ ] WHITE]" 
*340 NEXT: PRINT 
“350 FORI=0T08 


FO 


JG 
*360 PRINTTAB(18)"[RVSON][GREEN][3"[s X]" 


][RVSOFF] [WHITE]" 
*370 NEXT:PRINT 
+380 FORI=0T06 


FO 


JE 
+390 PRINTTAB(18)"[RVSON ] [GREEN ][3"[s x" 


][RVSOFF] [WHITE]" 


+400 NEXT: POKE1910, 160:POKECOL+1919, 1 : POK 
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ESP+21,255 GH +89 DATA0,13,251,0,5,251,0,7 KL 
“10 TEAG-TANDUDSLTHENPRINT" [HOME }";TAB(1 +900 ПАТА250,0,1,254,0,1,248,0 KF 
)"[5" [DOWN ]" ] [RVSON]"; HS “910 DATA1,248,0,1,254,0,7,250 HO 
*420 POKEL(0) , 155: POKEL(1) , 155: POKEL(2) , 1 +920 DATA0,5,154,128,20,241,128,24 EL 
55:POKEL(3), 155 ND +930 DATA112, 0,0,112,0,0,48,0 DH 
+430 POKEL(0)4COL, 7 : POREL(1)4C0L, 7 ant o +940 DATAO, 24 40,0, 24,0,0,48 BC 
2)4C0L, 7: POKEL(3)4COL, 7 *950 ПАТА0,0, 96, 0,0, 128, 0, 0 со 
"440 POKE53265, PEEK (53265)0R16:GOTO1156 E *960 DATA120,165, 1 41, 251,133,1,169,0,133 


"450 SP-53248: POKES3281 , 11:POKE53280,0 
460) POKESP+21,(:POKESP+23,0:POKESP+16,19 
2 PM 
“470 Cl=SP+39:POKECL, 1: POKECLH , 1: POKECL- 


EN 


2, 7:POKEC1+3, 7: POKEC1+4 , 1: POKEC1+5,1 MO 
“480 POKEC1+6,5:POKEC1+7,15 CN 
*49() FORI=1TOLSSTEP2:POKESP+I,100:NEXT КС 


“500 POKESP40, 75: POKESP42 , 140: POKESP+4 , 10 
5: POKESP46, 195: POKESP48, 225: POKESP+10, 25 
5 ND 
*510 POKESP+12,15:POKESP+14,45 CA 
*520 М1=12288:М2=12352:М3=12416:М4=12480: 


М5-12544:М6-12608:М7-12672:М8-12736 МА 
+530 FORI-(TO63: READA: POKEMLeI, A: NEXT FJ 
540 FORI-(TO63: READA : POKEM2I , A: NEXT. DC 
+550 FORI-OTO63:READA : POREM3-I , A: NEXT DL 
+56) FORI-0TO63: READA : POKEMA&T , А: NEXT DM 
*570 RESTORE IO 
+580 FORI«(TO63: READA: РОКЕМ5+І, A: NEXT DN 
+590 FORI-0TO63: READA : РОКЕМ6+І, A: NEXT DG 
“600 FORT=91063:READA : POKEM74I , A: NEXT FP 
“610 FORI-0TO63:READA: POKEMB-I , A: NEXT GA 
+620 FORI-(TO7:POKE20404I, 192-1: NEXT NO 


“630  FORI«3TOI5STEP2:POKE50000&I , 5: NEXT: P 
OKE50001 , 4 LK 
“640 DATA0,1,0,0,2,0,0,4 
*650 DATA0,0,12,0,0,28,0,0 
*660 DATA28,0,0,14,0,0,7,0 
*670 DATA0,3,128,0,1,192,0,1 
*680 DATA192,0,3,128,0,7,0,0 
*690 DATA14,0,0,28,0,0,30,0. 


*700 DATA0,15,0,0,13,128,0,15 IM 
*710 DATA128,0,3,128,0,0,128,0 NB 
*720 DATAO,64,0,0,224,0,1,240 IO 
*730 DATA0,1,152,0,0,248,0,0 CL 
“740 DATA120,0,0,48,0,0,112,0 BI 
+750 DATAO,224,0,1,192,0,3,128 NG 


“760 DATA0,3,128,0,1,192,0,0 


+770 DATA224,0,0,112,0,0,56,0 HC 
*780 DATA0,56,0,0,48,0,0,32 CI 
*790 DATA0,0,64,0,0,128,0,0 ND 
“800 DATA0,1,0,0,6,0,0,12 FF 
“810 DATA0,0,24,0,0,24,0,0 MP 
*820 DATA12,0,0,14,0,0,14,24 LN 


“830 DATA1,143,32,0,95,160,0,95 


“840 DATA224,0,127,128,0,31,128,0 HF 
+850 DATA31,128,0,127,128,0,95,224 FH 
“860 DATA6,223,160,0,223,176,0,22 BG 
*870 DATA176,0,15,0,0,6,0,0 NE 
“880 DATA0,96,0,0,240,0,13,104 ND 
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,251,133,253,169,40,133,252, 169, 208, 133 LG 
+970 DATA254,162,8,160,0,177,253,145,251, 
136,208,249, 230,252, 230,254, 202,208,240 PJ 
+980 DATA165,1,9,4,133,1,88,96 KC 
+990 DATA2,4,200,59,59,200,4,2,64,32,215, 
216,216,23,32,64 Ic 
“1000 DATA153,90,36,24,36,102,102,102,102 
,102,102,36,24,36,90,153 AE 
*1010 DATA129,60,66,90,90,66,60,129 KP 
“1020 60701030 FH 
+1030 FORI-UTOA6: READA: POKE8284T , A:CK=CK+ 
A:NEXT 
*1040 IFCK<>6871THENPRINT"ERROR IN LINES 
960-980" : END HP 
“1050 SYS828 EF 
5 FORI-11480T011519: READA: POKEI , A: NEX i 
F 


*1070 POKE53272, (PEEK (53272) AND240)OR16 
*1080 FORL=SIDTOSID+24:POKEL,9:NEXT 
ute 5,88: POKESID46, 195: POKESID+ 
2 ы 
1100 FORI=49152T049152+94:READML:POKEI,M 
L:CK=CK+ML:NEXT KL 
+1110 IFCK<>20502THENPRINT"ERROR IN LINES 


MM 
EP 


1710-1780" : END EO 
*1120 RETURN IM 
+1130 SYS49152:POKESH, 25: POKESID, 77 PB 


+1140 РОКЕЅІр+4 ,W1: ЕОКТ=1Т010:МЕХТ: POKESI 


D+4,W2:SYS49152:W1=33:W2=32:RETURN JJ 
+1150 V=PEEK(56321)AND15 EH 
*1160 SYS49152 XF 
*1170 IFPEEK(50002) <>0ТНЕМ60518144/0 EK 
+1180 IFV=14THEN1270 IN 
+1190 SYS49152 XF 
“1200 IFV-13THEN1310 HH 
+1210 SYS49152 KF 
+1220 IFV=7THEN1350 DE 
1230 SYS49152 KF 
*1240 IFV=11THEN1400 GN 
+1250 SYS49152 KF 
“1260 60701150 FO 
+1270 UP-PEEK(LOC-40) FM 
+1280 IFUP<>32THEN1150 HO 


+1290 POKELOC-40, 157: POKECOL+LOC-40, 7: POK 


ELOC, 32:GOSUB1130:LOC=LOC-49:SYS49152 ІМ 


+1300 SYS49152:GOTO1150 cc 
+1310 DWN=PEEK(LOC+40) 10 
“1320 IFDWN<>32THEN1159 NB 


“1330 POKELOC+40, 158: POKECOL+LOC+40, 7 : POK. 
ELOC, 32:GOSUB1130:LOC=LOC+40:SYS49152 


PA 
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+134) SYS49152:GOTO1150 


+1350 RT=PEEK(LOC+1) DF 
+136) IFRT=86THENHT=HT+1:H=1:GOTO1380 JI 
“1370 ІЕЕТ<>32ТНЕМ1150 HL 


+1380 POKELOC+1,155:POKECOL+LOC+1,7:POKEL 
0C, 32:GOSUB1130:LOC=LOC+1:SYS49152 MG 

+1390 SYS49152:SC=SC+LV:GOSUB1489:GOTO115 ч 
0 Е 

1400 LT=PEEK(LOC-1) 

“1410 ІЕІ/1<>32ТНЕМ1150 

+1420 POKELOC-1, 156: PORECOL4LOC-1 , 7 : POKEL 
0C,32:GOSUB1130:LOC=LOC-1:SYS49152 

1430 SYS49152:SYS49152:GOTO1150 

“1440 IFK=3THENPOKELOC, 159:W1=129:W2=128: 
GOSUB1130:POKELOC, 32:K=0:LOC=L(K) : GOTO16 
20 

*1450 KeK+1:X=HT+K;POKELOC, 159:W1=129:W2= 
128:GOSUB1130: POKELOC, 32: LOC=L(K) : C-PEEK 


CI 
HF 


DG 
Dp 


GO 


(53279) IK 
*1460 IFK=>4THENK=0:LOC=L(K) :60701620 FO 
“1470 RETURN IM 


+1480 51549152: PRINT" [HOME ]";TAB(1)"[DOWN 

] [DOWN ] [RVSON ]";SC:SYS49152 DN 
+1490 ТЕНТ-АТНЕМРОКЕ1301,86:РОКЕ1501,86:Р 
OKE1701, 86: POKE1901,86:GOTO1510 

+1500 60701580 

+1510 РОКЕ1350,155:РОКЕ1510,155:РОКЕ1670, 
155:POKE1830, 155:L0C=1350:K=0:HT=0:LV=LV 
+1 

+1520 IFLV»10THEN1790 

+1530 PRINTTAB(A)" [RVSON] [19" [DOWN 1" ]" ; LV 
: IFLV=2THENPOKESP+23, 1 


FP 


1540 IFLV=4THENPOKESP+23 ,5 GO 
+1550 IFLV=6THENPOKESP+23, 19 LK 
+156) IFLV=8THENPOKESP+23,51 JI 


+1570 X=0:H=0:GOSUB1700:GOTO1610 ID 
+1580 ТЕН=0ТНЕМ1610 BA 
*1590 X=HT+K:LOC=L(K):H=9:POKEL(K),155 РН 
*1600 IFK=>4THENX=0:;LOC=L(K) : GOTO1626 IP 


"He's our expert on turtle graphics." 
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+1610 RETURN 

+1620 IFSC>HSTHENHS=SC:UD=1 

+1630 PRINT"[HOME]" ; TAB(1)" [S"L DOWN]" ] [RV 
SON]"; uS KB 
:1640 PORESP421 ,: PRINTTAB(12) "САМЕ"ТАВ(2 
3)"OVER" NK 
+1650 PRINT:PRINTTAB(12)"PLAY"TAB(22)"TO 
AGAIN?" NJ 
:1655 PRINTTAB(12)"[RVSON][DOWN]PRESS"TAB | 
(21)"[RVSON]FIRE BUTTON" 

*1660 JV-PEEK(56321) :FR=JVAND16: теста" 
ЕМ1660 JB 
*1670 AG=1:LV=1:POKESP+23,0:GOTO70 HD 
+1700 FORI-15TOOSTEP-1:POKE53280, I: NEXT:R 
ETURN KO 
+1710 DATA 24,160,0,185,1,208,121,81,195, 
153,1, 208 EA 
+1720 DATA 200,200, 200,200,192, 20,208, 239 
,173,1,208,201 IM 
+1730 DATA 200,208,3,32,67,192,56,160,16, 
185,255,207 вс 
+1740 DATA 249,79,195,153,255,207,136,136 
1136, 136,192, oP 
+1750 DATA 208,239,162,10,160,0,200, 208,2 
53,202, 208, 250 EB 
+1760 DATA 173,31,208,141,82,195,96,160,0 
,140,80,195 AF 
:1770 DATA 32,151,224,165,141,41,5,172,80 
,195,153,81 BI 
+1780 DATA 195,200,200,140,80,195,192,16, 
208,234,96 


IM 


JP 
LG 179) POKESP421, 9:POKE53281,11:PRINT" [CLE 


AR]" XE 
+1800 PRINT [YELLOW] [6"[DOHN]" JS" [ТНТ] - 
"]YOU ARE A REMARKABLE PLAYER[3"."]" 
+1810 PRINTTAR( 4)" [DOWN] [DOWN ]CONGLATULA ` 
TIONS!" 

+1820 END 

چ س کے 


PROGRAMMERS! 


Ahoy! wishes to continue publishing the best 
Commodore-compatible programs available in 
magazines today. We're looking for games, utili- 
ties, educational, music, and graphics programs, 
and programs that completely defy description. If 
you have an original C-64, C-128, or VIC 20 pro- 
gram, in BASIC or machine language, we'd like 
to see it. Payment will be made upon acceptance, 
at competitive industry rates. You will also receive 
royalties based on the sale of our program disks. 

Send a copy of your program on disk or tape, 
accompanied (5 a printout and documentation, to 
Аһоу!, 45 West 34th Street— Suite 407, New 
York, NY 10001. Include a self-addressed mailer 
with sufficient return postage affixed. (Program 
[лез not accompanied by a disk or tape will 

e returned unread; programs no! accompanied 
by sufficient return postage will not be returned.) 
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ZDI TORIAI. 
Continued from page 
ing educational programs for school systems. A repre- 
sentative of Trillium Publishing revealed that program- 
ming for the C-64 and VIC just wasn't profitable. If it 
took under a week to rewrite an Apple program to run 
on the Commodore, they'd do it. But develop a package 
specifically for the 64? Too expensive. 

Another discussion uncovered why this is true. Though 
more Commodore computers have been sold than any 
other brand, most Commodore users don't buy software: 
they steal it. Even protected programs, like The Print Shop 
and Ghostbusters, are quickly broken into and illegally 
distributed. One speaker said these two are currenti 
most popular “pirate” programs. Although the discussion 
centered on piracy within corporations, the point was well 
made that the majority of programs are stolen by “home” 
computerists. 

ADAPSO, the Association of Data Processing Service 
Organizations, is helping to standardize a hardware “lock 
and key” system that when used with the more respected 
computer systems (like IBM and compatibles, Apple, and 
CP/M computers) will prevent software theft. Although 
backup disks can be made easily, the software won't run 
without the hardware key. 

Within a year, such systems will make it very айгас- 
tive to write software for these computers. Unfortunate- 
ly, nothing similar is planned for "home" computer sys- 
tems. Instead, programmers will just move into the more 
lucrative "business" field. 

The pirates have done such an efi 
off programs that com re being forced to abandon 
us or risk bankruptcy. company like Broderbund, 
creators of The Print Shop, may be forced to leave the 
“home” market behind. According to a Future Computing 
survey of 40,000 computer users, software's price has no 
relationship to the incidence of piracy. It had been theor- 
ized that as prices came down piracy would stop. This 
is not borne out by the numbers. Price seems to have 
no effect on the amount of stealing. 

What does seem to matter is the amount of documenta- 
tion and vendor support needed to use the program. The 
more difficult a package is to use, the less likely it is 
to be pirated. A menu-driven program that needs little 
or no documentation is much more likely to be stolen, 
i.e. programs like HomeMWord and The Print Shop. (Un- 
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TUMBLING DICE AND 
DATA STRUCTURES 


TAKING CHANCES WITH 
ADVANCED PROGRAMMING 
METHODS 
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TABLE TOP TYPER 
A VERSATILE WORD 
PROCESSOR FOR THE 

COMMODORE 64 


fortunately, the very factors that make a package a best 
seller also make it a “best stealer’ 

I am not going to make impassioned pleas to the pi- 
rates to stop their activities. I now realize that the situa- 
tion is hopeless. Instead, Td like to give all the legiti- 
mate software customers a bit of praise and ad 

First, thank you for being the honest people that you 
are. At least one person in the world respects you. Sec- 
ond, if there is a piece of software you've had your eye 
on, buy it. Quick! Also, send back the registration card 
and give some helpful comments if you can. It can't hurt 
to let the companies that stick with us know that they 
are appreciated, 

Td also like to conduct a survey to find out how home 
users view their computers. According to the gurus оѓ 
SoftCon, you don't exist. But, if you'd like to prove the 
home market isn't dead, drop me a line in care of Ahoy! 
If you want to be included in an article I'm writing on 
the subject, please send your name, address, type of com- 
puter and how you use it to: 


Cheryl Peterson 
c/o Ahoy!— Home Computer Use Survey 


If you don't mind being contacted for more information, 
include your telephone number. O 


SUBSCRIBE 


newsstand 

prices when 

you can save al- 

most $1.00 on each 

issue? See card between 
pages 66 and 67 for details. 


ROCKETS, BOATS, 
AND PIGS IN POKES 


USING SPRITES IN 
C-64 ACTION GAMES 
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DON’T MISS THE BOAT! 


SUBSCRIBE 
TOAHOY! 


ПІ Send me twelve issues of AHOY! for $19.95 
($26.95 Canada & elsewhere). I unders- 
tand that I will be billed later. 


O Send me twenty-four issues of AHOY! for 
$37.95 ($49.95 Canada & elsewhere). I 


understand that I will be billed later. 
NAME 
ADDRESS 
CITY 
STATE — c ZIP 


READER SERVICE CARD 


То request additional information on any product advertised or otherwise pictured in this issue of Ahoy! 
that is accompanied by a reader service number, circle the corresponding number below and mail this 
card. We will promptly forward your request to the designated companies. 
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PLEASE ANSWER THE QUESTIONS BELOW. From which of the following sources did you obtain your 
Sex and age сору? 
А О male B О female |o Mm К О newsstand N О subscription (mail) 

L O from a friend or family member 

M О other 


If not currently а subscriber, do you plan to become one? 
1Oys JOm 
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THE БЕТТЕ 


Introducing EasyPlex. The new, 
easy-to-use electronic mail system 
from CompuServe. 


Finally! Electronic Mail that’s so easy to 
use you can start composing and sending 
messages the first time you get online. 


Designed for various experience levels, 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for beginners, 

апа it lets experienced users save time by 
working in the prompt or command modes. 
With EasyPlex, you can compose, edit, send, 
file, and take advantage of sophisticated 
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pr 


options previously available only with more 
expensive services. 


CompuServe’ EasyPlex lets friends and 
relatives, associations and club members 
‘communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc. can communicate quickly and 
iply— either interoffice or interstate. 
"Its Easy" "Just Plex it!” 

Best of all, EasyPlex is available to ай 
CompuServe subscribers. And, along with 
EasyPlex, you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of belonging to the largest fastest 


Reader Service No. 230 


ER LETTER ВО 


growing computer information service in 
the world and the premier supplier of 
business information to FORTUNE 500 
companies. 

Start communicating! To buy a 
‘CompuServe Subscription Kit, see your 
nearest computer dealer. To receive our 
informative brochure or to order direct, 
call or write: 


CompuServe’ 


Information Services, PO, Box 20212 
5000 Arlington Centre Blvd. Columbus, Ohio 43220 


800-848-8199 


In Ohio, call 614-457-0802 


Ant 


